TSperl 発言

Bruce.です。

Bruce. writes:

> > えーと、use encoding の影響範囲は スクリプト STDIN STDOUT で
> > utf8変換されると理解しているのですが、認識合ってますか?
> > だから <> を使うと危険なのは当り前というか。
> 
> あってると思います。

気になったので調べてなおしてみました。

普通にopenしたストリームにも影響するようです。
逆に、use encoding していて、あるストリームは無変換で取り出したい
というときにはちと面倒なことになりそうです。

use encoding 'sjis';
open my $file1, '<', 'sjis.txt' or die;
while (<$file1>) {
    chomp;
    print length($_), ":$_\n";
}
close $file1;


いじょ。