Perlについての質問箱 43箱目
■ このスレッドは過去ログ倉庫に格納されています
0229194
2010/04/22(木) 23:50:50use strict;
use warnings;
use utf8;
use Encode;
use Net::Delicious;
my $delicious = Net::Delicious->new({user=>'hoge',pswd=>'fuga'});
my $agent = LWP::UserAgent->new;
foreach my $bookmark ( $delicious->recent_posts ) {
my $url = $bookmark->url();
print utf8::is_utf8($bookmark->description) . "\n";
my $title = Encode::encode('utf8',$bookmark->description);
my $tags = Encode::encode('utf8',$bookmark->tags);
$tags =~ s/([^ ] )/#$1/g;
print $title . "\n";
print $tags . "\n";
print "---------------------------------------------\n";
}
上のようなスクリプトをかきましたが、descriptionが文字化けしてしまいます。
Net::Delicious からとったデータはutfフラグがたっていたので、そのままencodeしました。
UTFフラグがたったものをencodeして文字化けする場合はどのように対処すれば良いでしょうか?
■ このスレッドは過去ログ倉庫に格納されています