Data::DumperでUTF-8フラグつき文字列をエスケープさせないようにするには ? ku
#!/usr/local/bin/perl -w use strict; use lib qw(/home/hoge/perl/lib/5.10.0 /home/hoge/perl/lib/site_perl /home/hoge/perl/lib/perl5); use utf8; use LWP; use Data::Dumper; { package Data::Dumper; sub qquote { return shift; } } $Data::Dumper::Useperl = 1; use XML::RSS; binmode(STDERR, ':raw :encoding(eucjp)'); #binmode(STDIN, ':raw :encoding(utf8)'); #binmode(STDOUT, ':raw :encoding(utf8)'); my $browser = LWP::UserAgent->new; my $url = "http://hoge.co.jp/rsss"; my $response = $browser->get($url); my $html = $response->content; # # print rss # print "Content-Type: application/xml; charset=utf-8", "\n\n"; print $html; # # parse rss # my $rss = new XML::RSS; $rss->parse($html); foreach my $item (@{$rss->{'items'}}) { print "title: $item->{'title'}\n"; print "link: $item->{'link'}\n\n"; } # # dump $rss # my $d = Data::Dumper->new([$rss]); print $d->Dump;