́∀`)定番のPerlのXML::RSSを使って、MySQLのデータベースに入っているとする。こんな流れになるかな。サンプルソースコードをまとめたものは、この記事の最後にあります。CGI;$form->charset('utf-8');まずコンフィグファイルはYAMLが便利なのでこれを使う。XML::RSSする時にバージョンを選べる。2.0を吐いてくれるから楽チン。CGIでも無いのにCGI.pmを使っているが、これはユーザがポストした中身を出力するときにescapeHTML関数を使いたいから。それだけのために使っている。charsetをutf-8しておかないと文字化けすることがある。10");connectするところまでは、MySQLにPerlからDBIで接続するときの定番なので省略......。今回は面倒なので、SQL文はselectall_arrayrefを使ってしまった。10と行数制限のあるSQLなので、ま、いいか。(LIMIT付けないSQL文でselectall_arrayrefを無造作に使って、対象が巨大なテーブルで1億行とか返された日には、大変なことになる)SELECTする時に、RSSで使う'%Y-%m-%dT%H:%I:%S'というISO形式の時刻フォーマットで取ってきている。);RSSのチャンネル要素をもりもり設定する。);}次に各レコードごとに値を取り出して、RSSのitemをひとつひとつaddしていく。$posttextはユーザが入力した値で、XSSの危険があるためここでCGI.pmのescapeHTML関数を借りた。$rss->as_string;$dbh->disconnect;最後にRSSをas_string関数で出力し、忘れちゃいけないデータベースハンドルをdisconnetしてオシマイ。関する罪」の情報公開請求をしました月別アーカイブはてなブログをはじめよう!ozumaさんは、はてなブログを使っています。ブログを報告するスターをつけました引用をストックしましたストック一覧を見る閉じる引用するにはまずログインしてくださいログイン閉じる引用をストックできませんでした。再度お試しください閉じる限定公開記事のため引用できません。