Perl 初心者コーナー Part22

[0958 ◆hMJAPH9PWA 03/05/15 17:23 ID:???]

>>957
UTF-8にしてみたら？

# 読み込みアルゴリズムが違うのははただの趣味
undef $/;
my $topic = <STDIN>;
Jcode::convert(\$topic, 'utf8', 'euc'); # これ
my $xml = new XML::Parser(Style => 'Debug',ProtocolEncoding=>'utf-8');
# ...