Text::MeCab の使い方 #

 use strict;
 use warnings;
 use YAML; 
 
 use Text::MeCab;
 
 my %hash;
 
 my $mobj = Text::MeCab->new;
 my $text = do { local($/); <STDIN> };
 
 my $node = $mobj->parse($text);
 while ( $node = $node->next ) {
     my ($type) = split /,/, $node->feature;
     next if $type ne '名詞';
     next if $node->length < 2;
     $hash{$node->surface}++;
 }
 print Dump \%hash;