RSS自動生成で文字化け
XML::RSSでRSSファイルを自動生成後のファイルが文字化けします。
webサーバーのキャラセットはコメントアウトしています。
キャラセットをAddDefaultCharset UTF-8にしても文字化けします。
スクリプトは下記でテストしています。
文字コードですが、UTF-8Nであれば、ファイルが生成されます。
生成されたファイルは文字化けしています。
ご教授お願いいたします。
#!/usr/bin/perl
use XML::RSS;
use strict;
my $rss = new XML::RSS(version => "1.0");
my $rssdata = [
{
title => "RSSテストその１",
link => "http://www.*******.***/rsstest",
description => "RSSテストその１です。",
dc => {
subject => "rsstest",
creator => "rsstest",
date => "2007-06-12T00:00:01+09:00",
}
},
];
$rss->channel(
title => "*******.***",
link => "http://www.*******.***",
description => "RSSテスト",
dc => {
creator => "rsstest",
date => "2007-06-12T00:00:00+09:00",
subject => "RSSのテストです",
},
);
foreach(@{$rssdata}){
$rss->add_item(
title => $_->{title},
link => $_->{link},
description => $_->{description},
dc => {
subject => $_->{dc}->{subject},
creator => $_->{dc}->{creator},
date => $_->{dc}->{date}
}
);
}
$rss->save("rss.xml");
お礼
意見を参考に色々いじくること5時間 よく分からないけれどもなんとか希望通りの形になることができました。ありがとうございました！