Linuxで自宅サーバ構築・管理: KSKNET http://www.ksknet.net/ ja 2008-03-23T23:12:09+09:00 hwclock - ハードウェアクロックの設定 http://www.ksknet.net/linuxai/hwclock.html ハードウェアクロックとはBIOS側で設定されている時間のことで、システムクロックとはOS側で設定されている時間のことです。


hwclock はこのハードウェアクロックとシステムクロックの同期に使用されます。


[使用例]
#システムクロックをハードウェアクロックに設定
hwclock -w
hwclock --systohc


#ハードウェアクロックをシステムクロックに設定
hwclock -s
hwclock --hctosys

]]> Linuxコマンド(A〜I) keisuke 2004-09-05T14:18:27+09:00 Class::Accessor - accessorの自動作成 http://www.ksknet.net/perl/classaccessor_a.html 
      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 }
]]> Perl keisuke 2008-03-23T23:12:09+09:00 Module::Starter::PBPによるモジュールの作成 http://www.ksknet.net/perl/modulestarterpb.html 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の書き方 ]]> Perl keisuke 2008-03-23T00:15:31+09:00 vim - 背景色に合わせたカラー設定 http://www.ksknet.net/vi/vim.html :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
]]> viエディター keisuke 2008-03-22T22:05:39+09:00 perlの特殊リテラル http://www.ksknet.net/perl/perl_9.html perlには以下のような特殊リテラルがある。

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

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

]]> Perl keisuke 2008-03-21T00:33:55+09:00 Firefoxでブックマークの保存先変更 http://www.ksknet.net/cat14/firefox_1.html Firefoxでブックマークファイルの保存先を変更するには、prefs.jsファイルと同じ場所にuser.jsファイルを作成し、以下の一行を追加すればよい。

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

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

]]> その他 keisuke 2008-03-20T23:13:39+09:00 XMLRPC::Lite http://www.ksknet.net/perl/xmlrpclite.html #!/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;
]]> Perl keisuke 2007-10-21T21:08:02+09:00 HTTP::Request::Common http://www.ksknet.net/perl/httprequestcomm.html 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;
}


]]> Perl keisuke 2007-10-08T20:35:17+09:00 LWP::UserAgent - Webデータの取得 http://www.ksknet.net/perl/lwpuseragent_we.html LWP::UserAgentを利用すればWEBデータを取得できます。GETメソッドのみでしたらLWP::Simpleの方が簡単です。ちなみにhttpsでの取得も可能ですが、Crypt::SSLeayがインストールされている必要がある。


[サンプル]

#!/usr/bin/perl


use LWP::UserAgent;


my $ua = LWP::UserAgent->new;


#タイムアウトを設定
$ua->timeout(10);


#ユーザエージェントを設定
$ua->agent('Mozilla');


#GET、PUT、POST、DELETE、HEADのいずれかを指定（httpsの場合はhttpsにするだけ）
my $req = HTTP::Request->new(GET => 'http://www.ksknet.net');


#リファラーを設定
$req->referer('http://referrer.ksknet.net');


#リクエスト結果を取得
#requestメソッドではリダイレクトも自動的に処理するため、そうしたくない場合はsimple_requestメソッドを使用するとよい。
my $res = $ua->request($req);


#is_successの他にis_redirect、is_errorなどがある(is_redirectを判定する場合、simple_requestメソッドを使用)
if ($res->is_success) {
print $res->content;
}


else{
print $res->status_line . "\n";
}


=pod
print $res->header("Content-Type") . "\n";
print $res->status_line . "\n";
print $res->code . "\n";
print $res->header("Server") . "\n";

#SSLの場合以下も取得可能
print $response->header("Client-SSL-Cipher") . "\n";
print $response->header("Client-SSL-Cert-Subject") . "\n";
print $response->header("Client-SSL-Cert-Issuer") . "\n";
print $response->header("If-SSL-Cert-Object") . "\n";
=cut

]]> Perl keisuke 2005-02-04T13:05:53+09:00 コンソールの設定 http://www.ksknet.net/linux/post_182.html Linuxでのコンソール設定方法。


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

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


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

init q


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

]]> Linux keisuke 2007-10-08T16:41:14+09:00 標準入力の内容を標示しないようにする http://www.ksknet.net/perl/post_181.html パスワードなどを入力させる場合、端末に内容を表示させないようにするにはsttyコマンドでechoを無効にすればよい。

system("stty -echo");
print "Enter your password: ";
chomp($passwd = );
print "\n";
system("stty echo");
]]> Perl keisuke 2007-06-24T22:48:45+09:00 syslog - ログの一括管理 http://www.ksknet.net/linux/syslog.html syslogはリモートサーバのログを受け取ることも可能です。リモートサーバのログを受け取れるようにするにはまず/etc/sysconfig/syslogを以下のようにします。


SYSLOGD_OPTIONS="-m 0 -r"


編集後syslogdを再起動すればリモートからのログを受け付けるようになります。使用するポートはudpの514番になりますので、iptablesなどでフィルタリングをしている場合にはこちらをまずあけます。


ログを送る側のサーバには/etc/syslog.confに以下のように記述します。 

*.*                     @192.168.100.1


これで全てのログがホスト192.168.100.1のシスログサーバに飛ぶようになります。ただsyslogサーバ側ではホストごとにログを振り分ける機能がないので、syslog-ngなどの使用を検討しましょう。


[豆知識] - syslogは元々sendmailに作られたものですが、その後アプリケーションに使用されるようになりました。

]]> Linux keisuke 2005-08-09T14:59:40+09:00 SQL::Abstract http://www.ksknet.net/dbi/sqlabstract.html 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 } );
]]> DBI keisuke 2007-01-29T17:47:40+09:00 postfix relayhost http://www.ksknet.net/postfix/postfix_relayho.html ローカル宛以外のメールを別のサーバ経由にて送信する場合にはmain.cf内のrelayhostにて指定すればよい。メールサーバを複数台で運用している場合などはここでゲートウェイとなるメールサーバ名を記述します。


[例]

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


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


[関連記事]
postfix - transport


]]> postfix keisuke 2007-01-24T12:37:03+09:00 innerText http://www.ksknet.net/javascript/innertext.html innerTextは指定したタグ間の内容を取得します。また値を設定することで、テキストを書き換えることが可能。innerTextはテキスト文として値を返すためにHTMLタグはそのまま表示されます。HTMLタグを有効にしたい場合にはinnerHTMLを使用してください。またFirefoxではinnerTextが使えないので、textContentを使用するか、innerHTMLにて代用すること。


[例]
<div id="testResult">Test結果</div>


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

]]> JavaScript keisuke 2007-01-19T11:50:29+09:00 viエディターでの画面分割 http://www.ksknet.net/vi/post_121.html viでは画面を分割して表示することができます。vi起動中に:splitもしくは:spとすることで画面を上下に分割できます。またすでに開いているファイルの画面を分割するだけでなく、複数ファイルを分割して開くことも可能です。その場合には:spのあとにファイル名を続けて入力します。また画面を上下に分割するのではなく、左右に分割することもできます。画面を縦に分割するには:vsplitコマンドを使用します。


[書式]
:sp 画面を上下に分割
:sp ファイル名 指定したファイルを分割した画面に表示
Ctrl-w p 画面間の移動
Ctrl-w k 上の画面に移動
Ctrl-w j 下の画面に移動
Ctrl-w l 右の画面に移動
Ctrl-w h 左の画面に移動

Ctrl-w + カーソルのある画面を一行分大きくする
Ctrl-w + カーソルのある画面を一行分小さくする
Ctrl-w = 画面のサイズを同じにする

]]> viエディター keisuke 2005-07-19T15:40:35+09:00 Template::Toolkit http://www.ksknet.net/perl/templatetoolkit.html 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


]]> Perl keisuke 2006-12-15T11:04:13+09:00 lastcomm - コマンドの実行履歴を参照 http://www.ksknet.net/linuxjq/lastcomm.html 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

]]> Linuxコマンド(J〜Q) keisuke 2006-12-25T19:12:42+09:00 qmHandle - qmailでのキューの処理 http://www.ksknet.net/qmail/post_147.html qmailでキューの処理をするにはqmHandleというスクリプトを使用します。qmHandleはsourceforgeよりダウンロードできます。使用前にエディタでqmHandleを開き、qmailの起動と停止に関する行を、環境に合わせて編集、もしくはコメントをはずします。


#FreeBSDの場合は以下の部分のコメントをはずす

my ($stopqmail) = '/usr/local/etc/rc.d/qmail.sh stop';
my ($startqmail) = '/usr/local/etc/rc.d/qmail.sh start';


[書式] qmHandle オプション


[主なオプション]
-a すぐにキューの再配送を試みる
-L ローカルキューの一覧を表示
-R リモートキューの一覧を表示
-mN メッセージ番号Nのメッセージを表示
-dN メッセージ番号Nのメッセージを削除
-D すべてのキューの削除


[使用例]
すべてのキューを削除します。

qmHandle -D


]]> Qmail keisuke 2006-01-05T18:00:10+09:00 keys - ハッシュからキーを取り出すには http://www.ksknet.net/perl/keys.html ハッシュからキーを取り出すにはkeysを使用します。


[使用例]


#環境変数からキーを取り出し、ソートした後、値を取り出します

foreach my $key (sort keys %ENV) {
print "$key: $ENV{$key}<BR>";
}

]]> Perl keisuke 2004-08-19T10:55:18+09:00