さくっとかいてみた。 まあ、これで十分でしょ。 MadEyeはここからどうぞ http://code.mfac.jp/trac/browser/MadEye/ package MadEye::Plugin::Agent::DNS; use strict; use warnings; use base qw/MadEye::Plugin/; use Net::DNS; sub is_alive { my ( $sel…

これが最適なモジュールかどうか、 もっとBestなモジュールがあれば教えてください。 ってのを前書きにおきますが、なんせIPC詳しくないので。 あと、まちがってたら突っ込みお願いします。http://d.hatena.ne.jp/ablabo/20070327/1175008475ここのBlogをみ…

http://back-paper.labs.mfac.jp/show?paper_rid=OEF9g0a6g8これをみて、globとか久々にみたのですが、 指定ディレクトリ以下のファイルを操作する場合はFile::DirWalkがお勧めです。 #! /usr/bin/perl use strict; use warnings; use File::DirWalk; use Pa…

MailmanのML毎の設定ファイルをPerlからあれやこれやで覗き見したいなぁとか 思ってたのですが、MailmanのML設定ファイルはcPickleというものを使ってバイナリーデータに シリアライズされています。 cPickleはPickleの実装をCでしたもので1000倍高速だとか…

Adminってもんでもないけど、 いちいちtelnetで話すのも面倒だしみたいな。 すげーてきとう。 package Cache::Memcached::Admin; use strict; use warnings; use base qw/Class::Accessor::Fast/; use Term::ReadLine; use File::HomeDir; use Path::Class; …

畑村式「わかる」技術posted with amazlet on 07.03.09畑村 洋太郎 講談社 (2005/10/19)売り上げランキング: 611おすすめ度の平均: 「わかる」ことがわかる！ 「わかる」を理解する 少し「わかる」がわかりました。Amazon.co.jp で詳細を見る 失敗学のすすめ…

Perlbalと色々戯れていたわけですが、 CREATE SERVICE example_server SET listen = 0.0.0.0:80 SET role = selector SET plugins = vhosts VHOST example.com = example ENABLE example_server CREATE SERVICE moge_server SET listen = XXX.XXX.XXX.XXX:80…

Perlbalのプラグインかいててちょっと気になったのが、 Pluginロード時にcamelizeしてくれないこと。例えば設定ファイルに LOAD regex_vhostsと書いてプラグインをロードさせた場合、 Perlbalは、Perlbal::Plugin::Regex_vhostsというモジュールを探します。…

複数プラグイン使うときの設定ファイルの書き方をミスりまくってた。 CREATE SERVICE http_server SET listen = 0.0.0.0:80 SET role = selector SET plugins = vhosts ,regex REGEX nekokak.jp \\.(jpg|gif|png|js|css|swf)\$ = nekokak_static VHOST nekok…