PerlのJcode::convertでネコが消えます
以下のようなスクリプトを書いたのですが、予想に反して、ネコ、ネネが消えます
なぜだか分かりますでしょうか
------------------------------------#!/usr/bin/perluse Jcode;@kw = ("ココ","ネコ","タコ","ネネ","コネ");foreach (@kw){ print Jcode::convert(\$_,'utf8'); print "¥n";}exit();------------------------------------↓実行結果------------------------------------ココタココネ------------------------------------環境は以下の通りです
Linux/CentOS5Perl v5.8.8
Linux/CentOS5.3/Perl5.8.8の環境で再現しました
原因はわかりません
推測ですが、Jcode::converに大域変数の「$_」のリファレンスを渡しているのが気になります
#!/usr/bin/perluse utf8;use Jcode;@kw = ("ココ","ネコ","タコ","ネネ","コネ");foreach $hoge (@kw){Jcode::convert(\$hoge, 'utf8');print $hoge,"¥n";}exit();で試してみてもらえませんか