Perlコーディング初心者質問スレ Part 56

Perlコーディング初心者質問スレ Part 56 at PHP

316:314
07/10/12 04:37:32
すいません。
ソースがおかしかったんで張りなおします。

my $rss = new XML::RSS;
my $url = 'URLﾘﾝｸ(hoge.com)';
my $dat = get($url);
my $result = $rss->parse($dat);

foreach my $item ( @{$rss->{'items'}} ){
if($result =~ /1.0/){
print "$item->{'dc:date'}\n"; #エラーが出る
}elsif($result =~ /2.0/){
print "$item->{'pubDate'}\n";
}
}

次ページ

続きを表示

1を表示