perl Text::Graph

テキストグラフを生成してくれる君。

  1 use strict;
  2 use warnings;
  3
  4 use Text::Graph;
  5 use Text::Graph::DataSet;
  6
  7 print Text::Graph->new('Bar')->to_string( { 1 =>10, 2 =>20 , 3 => 30  } );

こんなかんじ、引数はLineもある。

1 :
2 :**********
3 :********************

うん、まあ楽だ。

http://search.cpan.org/~gwadej/Text-Graph-0.23/Graph.pm