あんまし分かっていませんが、重要そうな部分だけ。 use XML::RSS; use LWP::Simple; use encoding 'euc-jp', STDOUT => 'euc-jp'; use open IN => ":encoding(euc-jp)"; use open OUT => ":encoding(euc-jp)"; binmode OUT => ":encoding(euc-jp)";
my $rss = new XML::RSS; $rss->parsefile($site_file); my $item_list = $rss->{'items'}; $item = ${$item_list}[0]; my $desc = $item->{'description'};