TSfree 発言

Bruce.です。

Perl部屋でも良かったんですが、Perlに限った話題でもないのでこちらに。

藤岡さんのお書きになった記事
CodeZine：デスクトップCGIでWebとデスクトップを融合する 第5回（Atom, デスクトップCGI）
http://codezine.jp/a/article/aid/977.aspx
なんですが、提示されているスクリプトの

while(my $row = $sth->fetchrow_hashref()){
    print "<a href=\"$row->{link}\">$row->{title}</a>\n";
    if($row->{logo}){
        print "<p><img src=\"$row->{logo}\">$row->{subtitle}</p>\n";
    }elsif($row->{icon}){
        print "<p><img src=\"$row->{icon}\">$row->{subtitle}</p>\n";
    }else{
        print "<p>$row->{subtitle}</p>\n";
    }
    print "<p>$row->{updated}</p>\n<hr>\n";
}

この辺が気になります。

logoとiconのパスを出力しているであろう行をみると、ハッシュのキーの部分
しか違わず、すげーまとめたくなります。
とはいうものの、うまくまとめられないような気も。
どうするのがいいんでしょうねえ?

いじょ。