gistfile1.txt

$ perl -MText::MeCab -E 'my $mecab = Text::MeCab->new; for (my $node = $mecab->parse("ハリーは暖炉に急行し、暖炉飛行粉の壷をつかみ、火格子にひと摘み投げ入れた"); $node; $node = $node->next) { my @fields = split ",", $node->feature; say sprintf "%s: %s", $node->surface, $fields[6] }'    
ハリー: ハリー
は: は
暖炉: 暖炉
に: に
急行: 急行
し: する
、: 、
暖炉: 暖炉
飛行: 飛行
粉: 粉
の: の
壷: 壷
を: を
つかみ: つかむ
、: 、
火: 火
格子: 格子
に: に
ひと: ひと
摘み: 摘み
投げ入れ: 投げ入れる
た: た
: *