Perl utf8ﾓｼﾞｭｰﾙの効果と文字化けについて Perl言語を活用しまして､外部ｻｲﾄのRSSﾌｧｲﾙを取得し､その取得したRSSの内容を当方のｻｲﾄに出力したいと思ってお…

Perl utf8ﾓｼﾞｭｰﾙの効果と文字化けについて

Perl言語を活用しまして､外部ｻｲﾄのRSSﾌｧｲﾙを取得し､その取得したRSSの内容を当方のｻｲﾄに出力したいと思っております｡
RSSを取得するﾓｼﾞｭｰﾙとして｢XML::FeedPP｣というﾓｼﾞｭｰﾙを活用します｡(http://www.kawa.net/works/perl/feedpp/feedpp.html)
今回の質問はutf8ﾓｼﾞｭｰﾙを使用したときに特定の条件で文字化けがおきる理由が知りたいということです｡
以下に､RSSﾌｧｲﾙを取得しｻｲﾄに出力する4つのｹｰｽを記述します｡(すべてUTF8ｺｰﾄﾞ)

ｹｰｽ1､http://nichista.seesaa.net/image/case1.txt
ｹｰｽ2､http://nichista.seesaa.net/image/case2.txt
ｹｰｽ3､http://nichista.seesaa.net/image/case3.txt
ｹｰｽ4､http://nichista.seesaa.net/image/case4.txt

さて､途中の13行目から｢#ｹｰｽ1?4)｣の部分を変更して複数の条件でﾌﾟﾛｸﾞﾗﾑを走らせます｡
上記の4つのｹｰｽのうち､｢ｹｰｽ3｣のみ文字化けしてしまいます｡
しかし､なぜ｢ｹｰｽ3｣だけこのような文字化け現象がおきるのでしょうか？
この現象の理由を知りたく存じます｡

外部のﾍﾟｰｼﾞを参照するのは面倒なので､まずは1つにまとめさせてもらいました

#!/usr/bin/perl
use utf8;
use strict;
use XML::FeedPP;

print "Content-type: text/html\n\n";
print "<html><head><meta http-equiv=\"Content-Type\" content=\"text/html\; charset=UTF-8\"><title>test</title></head><body>\n";
my $source = 'http://www.nicovideo.jp/ranking/fav/daily/g_popular?rss=2.0';
my $feed = XML::FeedPP->new( $source );
print "Title: ", $feed->title(), "<br />\n";
foreach my $item ( $feed->get_item() ) {

#ｹｰｽ1
print "Title: ", $item->title(), "<br />";
#ｹｰｽ1

#ｹｰｽ2
my $stock = $item->title();
print "Title: $stock<br />";
#ｹｰｽ2

#ｹｰｽ3
my $stock = $item->title();
print "ﾀｲﾄﾙ: $stock<br />";
#ｹｰｽ3

#ｹｰｽ4
my $stock = $item->title();
utf8::decode($stock);
print "ﾀｲﾄﾙ: $stock<br />";
#ｹｰｽ4

}
print "</body></html>\n";
exit;

さて､本題への答えですが､外部から読み込んだものは､

そのｷｬﾗｸﾀｾｯﾄなどには一切関知せず､

｢そのままの形｣で保持されていることが原因となっています

対処例から述べますと､use open IN などで､

｢外部から読み込んだものはutf-8として取り扱う｣といった､

ﾌﾗｸﾞを立てるようにするなどします

ｹｰｽ1および2では､

Titleという半角英数字との組み合わせであるために､特に問題は発生せず､

ｹｰｽ4においては､

単独でﾌﾗｸﾞを立ててやってますので､これまた問題は発生せず､

問題のｹｰｽ3では､

日本語との組み合わせになっているため､

そのままの形でつかってくれれば良いものを･･･

気を利かせて(というのは言葉のｱﾔですが)変換しようとしてしまうようなのです

参考

http://www.rwds.net/kuroita/program/Perl_unicode.html