#!/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 (/[ぁ-ん]/);
}
ありがとうございました。


