新しい環境下でText::MeCabがちゃんと動くかどうか確かめている最中におかしな結果になっていた。 下記のPerlトを動かした。実はUtf-8で書いたときに、外部プログラムから戻ってきた文字列にutf-8フラグが立っているかどうか確かめたかったのでその処理も書いてある。(本来確かめたかったのはそっち) #!/usr/local/bin/perl use strict; use warnings; use Encode; use encoding 'utf8'; binmode(STDERR, ":utf8"); use utf8; use Text::MeCab qw(:all); use MeCab; my $mecab = Text::MeCab->new; my $node = $mecab->parse("太郎とわたしで散歩する"); for ($node = $node->n