2009-01-25から1日間の記事一覧

ログ監視スクリプト

syslog-ngからこんな感じに起動してエラー発生時に指定の処理を行うスクリプトを書いた。 destination d_log_handle { program("cd /home/mikeda/bin;./log_handle.pl match_list"); }; log { source(s_sys); destination(d_log_handle); }; 仕様は ・エラー…

不明な正規表現で後方参照があるかどうか

正規表現をリストコンテキストで評価すると()で括った部分の配列が取れる。 gオプションも使うとさらに便利。

Perlメモをメモ

テックウェブという会社の取締役さんのPerlに関するメモ書き。 Perlメモ 僕の癖が強いものもありますがご容赦を。 たしかにww トリッキーで楽しいコードがいっぱいです。 いくつか紹介 リストシャッフル sub Shuffle{ BEGIN{srand} my @OUT; push @OUT,splic…