というコードを書いた。#!/usr/bin/perl use strict; use warnings; use Encode; use utf8; binmode STDIN, ":utf8"; binmode STDOUT, ":utf8"; while (<>) { print if (/[ぁ-ん]/); }
test.pl < utf8.txtは行けるが、
test.pl utf8.txtはだめ。
#!/usr/bin/perl use strict; use warnings; use Encode; use utf8; binmode STDOUT, ":utf8"; while (<>) { $_ = Encode::decode('utf-8', $_); print if (/[ぁ-ん]/); }
ありがとうございました。#!/usr/bin/perl use strict; use warnings; use Encode; use utf8; use open ':utf8'; binmode STDIN, ":utf8"; binmode STDOUT, ":utf8"; while (<>) { print if (/[ぁ-ん]/); }