古い記事
ランダムジャンプ
新しい記事
自戒を込めた自分用メモ。
基本レベルの話だろうけど、はずかしながらちょっとはまってたので。

test.pl :
#!/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 (/[ぁ-ん]/);
}

追記070208: 下記でOKとのことです。
#!/usr/bin/perl
use strict;
use warnings;
use Encode;
use utf8;
use open ':utf8';
binmode STDIN, ":utf8";
binmode STDOUT, ":utf8";
while (<>) {
    print if (/[ぁ-ん]/);
}
ありがとうございました。
- 404 Blog Not Found:perl - PerlIO vs. <>
  http://blog.livedoor.jp/dankogai/archives/50759241.html
- odz buffer - それ use open
  http://d.hatena.ne.jp/odz/20070207/1170867141
この記事に言及しているこのブログ内の記事