Linuxで自宅サーバ構築・管理: KSKNET

Class::Accessor - accessorの自動作成

Class::Accessorを使えばnew constructerやaccessorを自動的に作成してくれる。

      1 #!/usr/bin/perl
      2
      3 { package Employee;
      4 use base qw(Class::Accessor);
      5 __PACKAGE__->mk_accessors(qw(name role));
      6 }
      7
      8 { package main;
      9 my $employee = Employee->new({ name => 'Hoge' } );
     10 $employee->{role} = 'Hage';
     11 print $employee->{name} . "\n";
     12 print $employee->{role} . "\n";
     13 }

Module::Starter::PBPによるモジュールの作成

perlのモジュールの雛形を作るコマンドにh2xsというコマンドがありますが、最近ではModule::Starterを使うのが主流のようです。また、Module::Starter::PBPではPerl Best Practicesが推奨するテンプレートにてモジュールが作成されます。

まずはCPANよりインストール。

$ cpan -i Module::Starter::PBP

次に初期セットアップ

$ perl -MModule::Starter::PBP=setup
Creating /home/hogehoge/.module-starter/PBP...done.
Creating /home/hogehoge/.module-starter/PBP/t...done.
Creating /home/hogehoge/.module-starter/config...
Please enter your full name: HogeHoge HogeHoge
Please enter an email address: devnull@ksknet.net
Writing /home/hogehoge/.module-starter/config...
done.
Installing templates...
        /home/hogehoge/.module-starter/PBP/Build.PL...done
        /home/hogehoge/.module-starter/PBP/Makefile.PL...done
        /home/hogehoge/.module-starter/PBP/README...done
        /home/hogehoge/.module-starter/PBP/Changes...done
        /home/hogehoge/.module-starter/PBP/Module.pm...done
        /home/hogehoge/.module-starter/PBP/t/pod-coverage.t...done
        /home/hogehoge/.module-starter/PBP/t/pod.t...done
        /home/hogehoge/.module-starter/PBP/t/perlcritic.t...done
Installation complete.

$HOME/.module-starter内にconfigとPBPのテンプレートが入ります。モジュールを作成するにはmodule-starterコマンドを使用します。

$ module-starter --module=My::ModuleName

これでMy-ModuleNameフォルダ以下が作成されます。ディレクトリを移動して、Buildしてみます。

$ cd My-ModuleName
$ perl Build.PL
Checking whether your kit is complete...
Looks good

Checking prerequisites...
Looks good

Creating new 'Build' script for 'My-ModuleName' version '0.0.3'

これでBuildファイルが作成されます。続いてperl Build

$ perl Build
Copying lib/My/ModuleName.pm -> blib/lib/My/ModuleName.pm
Manifying blib/lib/My/ModuleName.pm -> blib/libdoc/My::ModuleName.3pm

t/フォルダ以下に必要なテストプログラムを書き、パッケージの実装をします。その後perl Build testで問題がないことを確認。

perl Build test

モジュールの依存性がある場合はBuild.PLのrequiresに追記。またMakefile.PLを以下のように書き換え。こうすればBuild.PLの内容と互換性のあるMakefile.PLが作成される。

use lib qw(lib);
use Module::Build::Compat;
Module::Build::Compat->run_build_pl(args => \@ARGV);
Module::Build::Compat->write_makefile(build_class => 'Module::Build');

実際に走らせてみる

$ perl Makefile.PL
$ make
$ make test

次にmanifest(配布されるファイルのTable of contents)の作成。MANIFESTに入れたくないものは作成されるMANIFEST.SKIPに記載すればよい。

$ perl Build manifest

# 最後にパッケージを作成。tar.gzファイルができあがります。

$ perl Build dist

[参考] ITPro - Part1 正しいPerl/CGIの書き方

vim - 背景色に合わせたカラー設定

:set backgroundにて背景色に合わせた色を自動的に設定できます。

[背景色が暗い時]

:set background=dark

[背景色が明るい時]

:set background=light

また以下のようにすれば、あらかじめ用意されたカラースキームを使用することができる。

:colorscheme evening

カラースキームは通常/usr/share/vim 以下にある。

ls /usr/share/vim/vim63/colors/
blue.vim      default.vim  desert.vim   evening.vim  morning.vim  pablo.vim      README.txt  shine.vim  zellner.vim
darkblue.vim  delek.vim    elflord.vim  koehler.vim  murphy.vim   peachpuff.vim  ron.vim     torte.vim

perlの特殊リテラル

perlには以下のような特殊リテラルがある。

__FILE__　現在のファイル名
__LINE__ 現在の行番号
__PACKAGE_　現在のパッケージ名

詳しくはperldocでperldata(Special Literals)を参照のこと。

Firefoxでブックマークの保存先変更

Firefoxでブックマークファイルの保存先を変更するには、prefs.jsファイルと同じ場所にuser.jsファイルを作成し、以下の一行を追加すればよい。

user_pref("browser.bookmarks.file", "E:\\Share\\bookmarks.html");

[参考サイト]
プロファイル - Mozilla Firefox まとめサイト

XMLRPC::Lite

Daemon server

#!/usr/bin/perl

use XMLRPC::Transport::HTTP;

my $daemon = XMLRPC::Transport::HTTP::Daemon
	-> new (LocalPort => 8080)
	-> dispatch_to('KSKNET')
;
$daemon->handle;

package KSKNET;
sub hello {
	return "Hello World!\n";
}

CGI server

#!/usr/bin/perl


use XMLRPC::Transport::HTTP;

my $server = XMLRPC::Transport::HTTP::CGI->dispatch_to('KSKNET')->handle;

package KSKNET;

sub hello {
	return "Hello World!\n";
}

Client

#! /usr/bin/perl

use strict;
use warnings;
use XMLRPC::Lite;

my $result = XMLRPC::Lite->proxy("http://localhost:8080/")->call("KSKNET.hello")->result;
print $result;

HTTP::Request::Common

HTTP::Request::Commonを使えば簡単にリクエストデータを生成することが可能。

#!/usr/bin/perl

use LWP::UserAgent;
use HTTP::Request::Common;
use strict;
use warnings;

my $url = 'http://webservices.amazon.co.jp/onca/xml';
my $ua = new LWP::UserAgent;
my $access_key = 'your_access_key';
my $affiliate_tag = 'your_affiliate_tag';

my $parameter = [
Service => 'AWSECommerceService',
Operation => 'ItemSearch',
SearchIndex => 'Books',
ResponseGroup => 'Medium',
Condition => 'All',
Availability => 'Available',
MerchantId => 'All',
AWSAccessKeyId => $access_key,
AssociateTag => $affiliate_tag,
Keywords => $ARGV[0],
];

my $request = POST($url, $parameter);
my $response = $ua->request($request);

if ($response->is_success) {
print $response->content;
}

コンソールの設定

Linuxでのコンソール設定方法。

1. /etc/inittab を編集し、下記一行を追加

s0:2345:respawn:/sbin/agetty -L /dev/ttyS0 9600 vt100

2. initコマンドで設定を反映

init q

注意: コンソールにrootユーザからはログインできないので注意すること。これは/etc/securettyにttyS0が記載されていないことによるものです。

標準入力の内容を標示しないようにする

パスワードなどを入力させる場合、端末に内容を表示させないようにするにはsttyコマンドでechoを無効にすればよい。

system("stty -echo");
print "Enter your password: ";
chomp($passwd = );
print "\n";
system("stty echo");

SQL::Abstract

SQL::AbstractはPerlのデータ構造からSQL文を自動で作成してくれるモジュールになります。

[例 - INSERT文]

use SQL::Abstract;

my $data = {
name => 'hoge',
value => 'hoge
};

my $sql = SQL::Abstract->new;
my($statement, @bind) = $sql->insert('table_name', $data);
my $sth = $dbh->prepare($statement);
$sth->execute(@bind) || warn $DBI::errstr;
$sth->finish();

select, update, delete時にWHERE句を入れる場合は以下のようにしてhash refにて値を渡してください。

my ($statement, @bind) = $sql->delete( 'table_name', { id => 1111 } );

postfix relayhost

ローカル宛以外のメールを別のサーバ経由にて送信する場合にはmain.cf内のrelayhostにて指定すればよい。メールサーバを複数台で運用している場合などはここでゲートウェイとなるメールサーバ名を記述します。

[例]

relayhost = [mailgw.ksknet.net]
relayhost = [192.168.1.2]

特定のホスト宛のメールのみ、別のメールサーバ経由で送る場合にはtransportを使用してください。

[関連記事]
postfix - transport

innerText

innerTextは指定したタグ間の内容を取得します。また値を設定することで、テキストを書き換えることが可能。innerTextはテキスト文として値を返すためにHTMLタグはそのまま表示されます。HTMLタグを有効にしたい場合にはinnerHTMLを使用してください。またFirefoxではinnerTextが使えないので、textContentを使用するか、innerHTMLにて代用すること。

[例]

Test結果

var testResult = document.getElementById('testResult');
alert(testResult);
testResult.innerText = '書き換え';

lastcomm - コマンドの実行履歴を参照

lastcommコマンドではhistoryコマンドよりも詳細なコマンド履歴を見ることができます。このコマンドはprocess accountingによって記録されたファイル　(/var/account/acct)を参照するため、process accoutingがonになっていないと使用できません。またログがかなり誇大化するため、ロテート処理をきちんとすること。

LinuxやFreeBSDでprocess accountingを有効にするにはそれぞれ以下のようにします。

[Linux]

/etc/rc.d/init.d/psacct start

[FreeBSD]
/etc/rc.conf に以下の一行を追加してから、/etc/rc.d/accounting startで起動。

accounting_enable="YES"
/etc/rc.d/accounting start

EncodeモジュールでのMIME Encode

Encodeモジュールで文字コードの変換ができるが、MIMEエンコードをするには以下のようにすればよい。

use Encode;

encode('MIME-Header-ISO_2022_JP', $subject)

詳細はperldoc Encode::MIME::Headerを参照。

Template::Toolkit

Template::Toolkitは強力なテンプレート処理システムでHTML::TemplateやText::Templateなどといった他のテンプレート処理モジュールより汎用性の高い処理をすることが可能です。Template::Toolkitではテンプレートファイル内の変数置換だけでなく、テンプレートの中でTT2言語と呼ばれる言語で簡単なプログラムを書いたり、DBIなどのプラグインを使用してデータベースへの接続をすることも可能です。ただしプログラムとテンプレートを分けるメリットがなくなるので、極力プログラム本体はテンプレート外で処理することをお勧めします。

テンプレートファイル中の変数は[% %]内に記述します。

[% domainname %]

プログラム内からこのテンプレートファイルを読み込み変数を置換するには以下のようにします。

use Template;

my $tt = Template->new( { INCLUDE_PATH => '/var/www/html/template' } );
my $vars = { domainname => 'ksknet.net' };
$tt->process('template.txt', $vars ) || die $tt->error(), "\n";

$tt->processでは処理結果をSTDOUTに出力します。処理が成功すると1を返し、失敗するとundefを返します。そのため$tt->processの結果を変数に入れても1かundefしか返りません。結果を変数に入れるには以下のようにしてください。

my $result; $tt->process('template.txt', $vars, \$result ) || die $tt->error(), "\n"; print $result;

また出力をサブルーチンに渡したりファイルに出力することも可能です。

[補足]
ハッシュへのアクセスにはドット記法を用います。

[% customer.name %]

[参考資料]
Template::Manual