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 :********************
うん、まあ楽だ。