413. Re: Unicode in Perl

Bruce. です。

その後いろいろといじってみたのですが、


use encoding sjis;
#binmode(STDIN, ":encoding(sjis)");
while (<>) {
   chomp;
   print $_,"\n" if /\p{InBasicLatin}+/;
}


↑を use encodingの行をコメントアウトして、binmodeを活かすと
期待通りの動作をします。両方活かすと二重にデコードしてしまうようで
まともに動きません。わけわからん。

-- 
木村浩一
  I thought what I'd do was, I'd pretend I was one of those deaf-mutes.
  mail kbk@...
  web  www.kt.rim.or.jp/~kbk/