perl RSSを元にした更新スクリプト

以前にも書いた@ホームページとココログを連動させるCGIはてなRSSにも対応させてみました(というかRSSの対応度をまともにしただけ)
半年くらい前に書いた物をいじったのだけど、だいぶ色々わけのわからない書き方をしているところがあってちょっと改修に手間取りました。

同じ事をするスクリプトがいくつもあるとまた後で手を入れるとき不便なので、呼ばれ方によってどのRSSを処理するか振り分ける部分も作りました。

my $data = $ENV{'QUERY_STRING'};
my @args = split(/&/,$data);
for(@args){
my($key,$value) = split(/=/,$_);
if($key eq "項目名"){
      やること;
        }
}


CGIの引数?をperlで処理する方法
hogehoge.cgi?項目名=値
で呼び出すと動く。たくさん引数を付けても良い
hogehoge.cgi?項目名=値&項目名=値