Perlの話題を １０日ほど前に続けたが、再び。
ほとんど正規の書き込みのない私の掲示板だが、その割に毎日 数十回のスパム書き込みがある。ほとんどすべてが海外からの書き込みなので以下の対応策を順次入れてきた。
１．タイトルに平仮名などがない。
２．本文にURLリンクが ２つ以上ある。
３．一回スパムが書き込まれたURLや、ロシア語圏のIPからは受け付けない。
などの対策を盛り込んで、ほとんどは自動で撃退できているんだが、中にすり抜けるスパムもあって、それらは文字コードが異なるロシア語圏からのものと思われるが、IPは .com など USなどのサーバー経由からのもので、上記対応策では書き込みがリジェクトできないで残っていた。まぁ １周間に １回かそこいらなので、気づく度に手動で削除してきた。しかし、Perlの記憶を呼び覚ましたついでなので対策してみようと考えてみた。
どうやら そうした書き込みは 日本語文字コードに変換されると「ミエミセム・コミー ミセミアム貫紹ひ ミウミセ・・・・」のような片仮名が異常に多いので、それらもリジェクトするようにしてみた。
私の日本語環境のPCからそうした文字を書き込んでテストした結果では一応対応できた様子だが、実際の効果は １週間ほど見ればわかると思う。イタチごっこのようなスパム書き込みと対策の戦いだ。
今日の写真も名前を知らない花。草花だが、葉っぱはヨモギのような形、花は 3mmくらいの小さなピンクの花。背丈は 10cmくらいしか無いこれも目立たない花だ。今まで １ヶ月近く花が咲いていたが、最近はもう時期を過ぎたみたいでほとんど見なくなった。

Perlの便利な点は、モジュールと呼ばれる外部サブルーチンを利用することで、簡単に高機能なコマンド(ステートメント)を利用できること。基本的なコマンドだけで記述すれば 数十行になる処理が、１〜２行で実現できたりする。
しかし、自分が利用しているサーバーはどのモジュールが使えるのかがわからない時がある。パソコン自体で実行する Cなどの言語と違って、サーバー上で実行する CGIは入出力がブラウザだけなので、逆にエラーなどの情報は得られづらい。デバックのノウハウが効率的な開発の決め手になるが、そうしたチェックも便利なツールがあったりする。
今回利用したのは、構文チェックと利用可能モジュールなどの環境チェックが両方できるフリーのツール。
その名も「すぐ使えるCGI Perl環境調査CGI」というツール。O/Sから Perlのディレクトリ、使えるモジュールのチェックまで、実行することでほぼ必要なデータは揃う。
今日の写真は名前が形そのものの花。「チロリアンランプ」(ウキツリボク)。天地創造神が戯れた？としか思えない何とも面白い形をした花だ。

今日は朝から本当に久しぶりという気がする雨。
＜お天気仕事＞という訳ではないが、この間まで自作していたサイトマップで忘れかけていた 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を記述して確認してみた。
今日の写真は、昨日の花とはかなり趣が異なるがこれもカタバミ？　花の色は綺麗な黄色。最近の園芸種は品種改良が激しいせいか同じ種類でも色や形が少しずつ違っていて名前のわからない花が多い。

昨日記したように、1日 1回自分で更新しなくとも、あるページが閲覧されたらサイトマップが更新されるような仕掛けをして記録をしてみた。
但し、1日 1回では結果が分かるのに時間がかかるので、86400 ＞ 3600 として 1時間に 1回。記録は以下の様な感じ。
Sat May 4 01:04:51 2013 :: auto exec done :: 357
Sat May 4 02:48:15 2013 :: auto exec done :: 357
Sat May 4 07:36:45 2013 :: auto exec done :: 357
Sat May 4 10:25:25 2013 :: auto exec done :: 357
この場合、私のトップページに<IMG src="">文を置いたので 真夜中も 1時間毎とまでは行かなかったが、一応夜中も狙い通り起動している事がわかった。
これで本格的に設置できる。
今日の写真は、近くの公園の藤棚のフジの花。別のフジの花の写真は半月ほど前にアップしたが、こちらの方が記憶に近い開花期。数日前の夕方、ジョギング中に花の香が漂ってきたので、翌朝の散歩の時　何の花か確かめたらどうやらこの藤の花だったらしい。太陽光を透かしたフジの花と若葉の色を見ると、5月だなぁ　と思う。私の誕生日も間もなくだ。

昨日の続きで Perlメモ
サイトマップの更新を自動で 1日1回程度やる方法だが、実際にはテストしてみるといくつかキモがあったのでそのメモ。
例えばあるHTMLページが閲覧された場合、sitemap.cgi というPerl記述のCGIを起動する場合は アクセスカウンタなどと一緒で　IMGタグを使って < IMG src=" URL "> などとやる。で、CGI側なんだけれど、一般的には 不用意な実行をされないように 頭の部分でパスワードチェックをしていると思う。アクセスカウンタの場合はカウントアップだけだから無制限に実行されないと困るが、一般のプログラムだと逆に万が一環境設定などが書き換えられては困る。だからパスワードチェックの後ろにサイトマップ作成ルーチンを記述してあると、折角 CGIがコールされてもサイトマップは更新されない。
そこで、サイトマップ更新のサブルーチンだけは パスワードチェックでNGとなっても終了コマンドの前に実行されるようにしておく。

# サイトマップの更新日付をチェックして、現在時刻との差が 24時間以上なら以降を実行する

my$modtime = (stat("sitemap url"))[9] ;
my$timenow = time;
if(($timenow - $modtime) > 86400){
&make_map;
}
exit;

のような感じで。くれぐれも サブルーチンの中に端末から操作が可能になるような実行文は書かないこと。
今日の写真は、やっと 4月中に撮影した白い花の写真が終わったので、紫の花。ツリガネスイセンだろうか？ 背丈 30cm くらいの小さな花だが、低木の蔭でよく見かける。光の加減で紫が薄くなってしまったが、実際にはもっとずっと濃い色だ。

昨日の続きで Perl/CGIの話。
１日１回の実行プログラムをどう実現するかなんだけど、WindowsのようなO/Sならタスクスケジューラで起動時間を定時で指定したり出来るんだが、レンタルサーバー上のプログラムではそうも行かない。起動しっぱなしにして時間が来るのを待つ、というのもその間資源を抱え込んでしまうのでサーバープログラムではご法度らしい。
で今のところ案は２つ。　一つは、アクセスカウンタのCGIに時間をチェックするプログラムを仕込んでおき、ある時間を過ぎてまだ該当の外部プログラムを起動してなかったらそのCGIを呼ぶというもの。アクセスカウンタはページがアクセスされた度に起動されるので、ほぼ目的は達せられる。
２つ目は、Windowsの端末のスケジューラに目的のCGIにアクセスする記述をしておくというもの。こうすれば、Windowsの起動中なら（起動していなければ起動後に）該当のCGIが呼ばれて実行されるので、こちらもほぼ目的は達せられる。
どちらもあまりスマートではないが、まぁ日曜プログラマーならこの程度でいいか。
今日の写真は、まだあった４月中に咲いた白い花。ツツジ。透明感のある真っ白いツツジの花は個人的には花の数などのせいか他の白い花より清潔感があって好きだ。

ホームページをアップしていて、Google などの検索順位のアップのため（SEO対策）サイトマップというホームページのURLのリストファイルを作る必要がある。このファイルは1つずつ 手で打ち込んでもいいが、何百ページにもなるととてもそんなことはやっていられない。
自動になると、Webサービスでリンクを辿ってリストを作ってくれるサービスがあるので、そこから出来上がったリストファイルをダウンロードしてきてもいい。あるいは、フリーウェアで Webのコピー元である PCのHDD上のHTMLファイルをリストしてくれるものもあるし、サーバー上のファイルのリスト作成は Perlなどの Webアプリでもあるにはある。しかし、更新日付情報などを入れたり、自分の気に入った仕様のものはやはり自分で作るしかない。
私も今までは 一旦 Webのサービスを利用してリストを作り、その後の変更は手で追加や修正を加えていたが、例えばこのページのように 頻繁に更新するページの更新日付をその度に書き換えるのはついサボってしまい、暫く放置することが多かった。
そこで今回、1日 1度 このサイトマップを自動で作り直すツールを作ろうかと思い立った。しかも、このページは CGI経由で直接 Web サーバー上のファイルを書き換えているので、ローカルのコピーのリストを生成しても意味が無い。そんな既存のフリーウェアは探した中ではやはり無かった。シェアウェアならありそうだが それに ５千円を払う気はない。で、参考になりそうなフリーの素材をダウンロードして、それの改造で作り始めた。もう殆ど忘れかけた Perlのコマンドを思い出しつつ、四苦八苦しながらも 1週間強でおよそ出来上がったんだが、それでサイトマップを作ってみて、今度はそのリストの中にどこからもリンクされていない孤立状態のページがあることに気づいた。
理由は、表示テストでアップして削除を忘れたり、中には折角ページを作ってアップしたもののリンクを忘れてしまったページなんかもある。
で、今度は サーバー上のそんなリンク切れの孤立ページをリストしてくれるツールが欲しくなった。そんなものがあるかどうか疑問だったが、こちらは個人使用ならフリーという便利なツールが見つかった。早速ダウンロードしてきて自分のサイト上に設置してみたが、法人や商用は 5,000円ほどするというだけあって結構出来のいいツールだ。
今日の写真は「白い」オダマキ・・・・だと思う。これで一通り　4月に撮影した白い花は終わり。