今日は朝から本当に久しぶりという気がする雨。
＜お天気仕事＞という訳ではないが、この間まで自作していたサイトマップで忘れかけていた Perl言語を少しだけ思い出したので、リハビリついでにほとんど利用されてはいないが掲示板のプログラムに、スパムの検出アルゴリズムを少し追加。実際の読者の書き込みの10倍以上スパムの書き込みで、しかもそのスパムのほとんどがロシアとかウクライナなど旧ソビエト地域の IPなので、IPアドレスから国記号を検索して対象の国からの書き込みの場合は一括書き込み禁止にしてみた。（逆に日本だけを許可するという方が正解かもしれないが、万が一　イヤ 億に一？　アメリカとかの日本人が書き込んでくれるかも・・・という根拠のない期待を捨てきれなかった）
use IP::Country::Fast; を使って
　my$reg = IP::Country::Fast->new();
　my$ctrycode = $reg->inet_atocc($host);
という 2行だけで、$hostにドメイン名やIPを入れてやれば $ctrycode に JPとか USとかの国記号が返される Perlならではの便利さ。でもちゃんと働いているかの確認は？　ロシアのプロキシを使うとか？　とりあえずテストプログラムを作ってそこに IPを記述して確認してみた。
今日の写真は、昨日の花とはかなり趣が異なるがこれもカタバミ？　花の色は綺麗な黄色。最近の園芸種は品種改良が激しいせいか同じ種類でも色や形が少しずつ違っていて名前のわからない花が多い。