]]>
Can't use an undefined value as an ARRAY reference at /usr/lib/perl5/5.8.8/Test/Harness.pm line 373.
とエラーになった。CentのyumとPerlのCPANがそれぞれperlパッケージを管理しているのでバッティングしたのだと思う。Perlの側でTest::Harnessを更新する。直った。 ]]>% su -
# perl -MCPAN -e shell
cpan shell -- CPAN exploration and modules installation (v1.7602)
ReadLine support enabled
cpan> install Test::Harness
(略)
Result: PASS
/usr/bin/make test -- OK
Running make install
Installing /usr/lib/perl5/5.8.8/Test/Harness.pm
Installing /usr/bin/prove
Writing /usr/lib/perl5/5.8.8/i386-linux-thread-multi/auto/Test/Harness/.packlist
Appending installation info to /usr/lib/perl5/5.8.8/i386-linux-thread-multi/perllocal.pod
/usr/bin/make install -- OK
cpan> exit
Lockfile removed.
# exit
%
File::Tempは安全にテンポラリファイルを作成、open()する。File::Tempのコンストラクタ及び関数tempfile()はテンポラリファイル名とopen()したファイルハンドルを返す。追加のセキュリティレベルがセキュリティ確保のために用意されている。例えばworld writableなディレクトリにsticky bitが立っていないか、等。safe_levelを参照。
テンポラリディレクトリも扱える。
コンストラクタ
$tmp = File::Temp->new(
TEMPLATE => 'tempXXXXX',
DIR => 'mydir',
SUFFIX => '.dat');
UNLINK(デフォルトで真)、DIR、EXLOCK、SUFFIX。追加でファイル名テンプレートはオプションTEMPLATEを使用することで指定できる。オプションOPENはサポートされず常にファイルはオープンされる。
引数の大文字と小文字は区別されない。失敗時にはcroak()を呼び出す。
DIRはデフォルトではカレントディレクトリ。
TEMPLATEはファイル名のテンプレート文字列で、文字列末尾の連続した文字"X"部分をランダムな文字に置き換えられてテンポラリファイル名が作成される。"X"は少なくとも4文字以上であるべき。
SUFFIXはファイル名としてTEMPLATEの後ろに付け加えられる文字列。
デストラクタ
オブジェクト指向インタフェースで生成されたオブジェクトがスコープ外に出ると自動的にデストラクタDESTROY()が実行される。オブジェクト生成時にコンストラクタがUNLINKを1にセットして呼び出されていれば、デストラクタはテンポラリファイルを(unlink1()を使用して)unlink()する。(UNLINKはデフォルトで1)
オブジェクトがfork()によって親プロセスから受け継いだものである場合には、親プロセスでオブジェクトがスコープ外に出れば削除されてしまうはず。
ただしグローバル変数$KEEP_ALLが真であれば全てのテンポラリファイルは削除されずに残される。
]]>
シンプルな例：
実に馬鹿だな
Life with IT
drk7.jp
小飼弾さんとこ
古いかもなサンプル
理由は百MBytesを越えるログの高速解析を行いため。
最近のマシンはシングルコアでないからマルチスレッドにすれば簡単に高速化するはず。
当然高速化できるのはログの読み込み処理の部分と期待しているのだけど、
でのファイル読み込みをどうやってスレッドに分けてやればよいのか分からん。ファイルハンドルFHをスレッド間で共有してスレッドそれぞれが何も考えずにwhile(<FH>)
{
}
とすればよいのだったら楽なんだけど、そんな訳なさそう。1行ごとにqueueとかで受け渡しするのは遅いに決まっているし、どこかでファイルを分割するにも分割位置まで到達したことを知る手段がないような。seek()か? ]]>while(<FH>)
{
}
use Sys::Syslog;
openlog($tag, "ndelay,pid", $facility);
syslog($priority, "%s", $msg);
closelog();
openlog()が失敗するとcroak()する。この場合の失敗とはsyslogdとconnect()できない事を指す。
syslog()は返り値を返さないので成功か失敗かの区別を行えない。(perldoc Sys::Syslogによれば)
closelog()は成功すると真を返す。失敗するとたぶん、偽を返すのだろう。
]]>
ただGoogle chromeのDNSプリフェッチと同様に、このDNSプリフェッチには今の所実装に問題があるようで、プリフェッチの実行を短時間の間に大量に実施します。これは要求を受け付けるDNSサーバ側から見ると場合によってはDoSの様に見えるような要求になるケースもあるでしょう。
解決のためにDNSプリフェッチは同時にはＮ件しか実行しないよう実装で制限を掛けて欲しいものです。OSのレゾルバライブラリ(nscdも合わせて)でアプリケーションからは透過的に解決できるのであればそれがよりよいのかもね。
また、(DNSではない)次のページのプリフェッチについてはMozilla Developer Centerに説明がありますね。ページのプリフェッチは<a>を対象とせず、<Link>を対象とするものだそうで、全てのページで実行されるかというとそうではないようです。(だから期待しているものとは違う) ]]>
sawmill
確か有名な奴。sawmill本体はログ解析の総合ツール製品で、bind9のquerylog解析プラグインが存在している、ということらしい。とりあえず無料のものを探すこととしたい。
cacti用のスクリプト
cactiのテンプレートを多分、いじるんだろうと思う。cactiのテンプレートや登録が私には良く理解できないのでパス。
munin
グラフ作成のためのrrdtoolフロントエンド、かな? グラフ描画までやらなくて良いよ。解析して欲しいんだけど。グラフにもするけどさ。
どうすべ。 ]]>
ここではbashの場合のログインスクリプト.bashrcの書き方とssh-agentの起動/停止スクリプトを紹介する。これを利用することでssh-agentが起動していなければ起動し、起動していればその1プロセスを利用し、更に複数のssh-agentを起動してしまわないようにできる。
スクリプトsshagentはこちら。
上記スクリプトを~/bin/sshagentに保存し、chmod u+x ~/bin/sshagentとする。
このスクリプトをログインの際に自動的に実行するよう.bashrcから呼び出すように設定を行う。ssh-agentの実行結果として出力される文字列を実行し環境変数に設定しなければならないのでsourceでスクリプトを実行する点に注意。
また、WinSCPを使用する場合、ssh-agentが標準出力へ出力する文字列のせいでWinSCPがログインに失敗するようになる場合がある。これを回避するための設定を.bashrcに入れておく。WinSCPはログイン先から更に別のサーバにログインしないのでssh-agentを使用する必要がないため実行しないようにするだけだけどね。
]]>if [ "X$TERM" != "Xdumb" ]; then
source ~/bin/sshagent start
else
true; # connect by WinSCP
fi