■

Text::Graphをインストールしたら

Can't locate object method "new" via package "Text::Graph::DataSet" (perhaps you forgot to load "Text::Graph::DataSet"?)

っていわれたので、

use Text::Graph::DataSet;

したらうまくいったんだけど、これって昔からこうなのかな。

試しに、MeCabでこんな感じにデータ取ってグラフ出してみた。
グラフ出したかっただけだから、出したデータに特に意味はないけど。

$VAR1 = {
          'cost' => 60982681,
          'feature' => {
                       'inflected_forms' => '*',
                       'subtyping_1' => 'サ変接続',
                       'subtyping_2' => '*',
                       'pronunciation' => undef,
                       'inflected_format' => '*',
                       'class' => '名詞',
                       'reading' => undef,
                       'prototype' => '*',
                       'subtyping_3' => '*'
                     },
          'surface' => '>'
        };

こんな感じで出す。

 36 my $graph = Text::Graph->new(
 37     'Bar',
 38     fill    => ',',
 39     log     => 1,
 40     showval => 1,
 41     right   => 1,
 42 );

こんな感じ。

   副詞 :,*         (9)
助動詞 :,,,,*      (101)
   助詞 :,,,,,*     (418)
   動詞 :,,,,*      (169)
   名詞 :,,,,,,,*   (4464)
形容詞 :,,*        (13)
感動詞 :           (1)
接続詞 :,*         (6)
接頭詞 :,,*        (20)
   記号 :,,*        (14)
連体詞 :,*         (6)

http://mecab.sourceforge.net/
http://search.cpan.org/perldoc?Text::Graph
http://search.cpan.org/perldoc?Text::MeCab