TSfree 発言

On Thu,  1 Mar 2007 14:51:58 +0900 (JST)
kbk@... (Bruce.) さんwrote:

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

　毎度取り上げていただきありがとうございます_(__)_

> 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のパスを出力しているであろう行をみると、ハッシュのキーの部分
> しか違わず、すげーまとめたくなります。

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

　少しは短くなりましたけどね^^;)

藤岡 和夫
kazuf@...
日曜プログラマのひとりごと http://homepage1.nifty.com/kazuf/renewal.html