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");
