perlの最近のブログ記事

Flash-ActionScriptの技術ブログのつもりで始めた当ブログですが、いきなりperlの話題からスタートです。

現在開発中であり、ワンクリックアワードに出品予定の白米こんぶさん。
未だβ版なのですが、β版たる最大の要因は読み込みxmlにあります。

レシピをcookpad.comから拾っているのですが、これを拾う為にyahoo Pipesを利用しています。

が、

そもそもcookpad.comは人気サイトで、みんなが献立を考える時間帯になると激重になってしまい、データが拾えなくなる場合があることがわかりました。

そこで、重くならない時間帯にxmlを保存して、別ファイルとして自分のサーバに置いておく（白米こんぶさんはそれを読み込む）という対策をとりました。

でも手動でxml保存するの、大変だべ？

というわけでcgiを使って、その作業を半自動化することにしました。

こちらのサンプルスクリプト（HTTPクライアント）を利用させていただきました。

改造ポイントはクエリによって読み書きファイルを制御する部分。

if ($ENV{'QUERY_STRING'}) {
	#クエリを解析して読み書きファイルを確定
	my @list = split(/=/,$ENV{'QUERY_STRING'});
	$acs_category = eval "\$acs_$list[1]";
	$logfile = eval "\$logfile_$list[1]";
	#実行
	&request;
}

順加はeval関数を覚えた！

あとは読み込んだページ情報を表示せずに外部ログに書き込む処理を施せば完成。

思ったより簡単でした。これでいつでもxmlファイルを更新できます。