お気に入りのPerl CPAN モジュール Text::ASCIITable のご紹介 これはどんなことをしてくれるかというと、 my $senkyo = [ [ jimin => 296 ], [ komei => 31 ], [ minsyu => 113 ], ]; みたいなデータがあったとして、 use Text::ASCIITable; my $t = new Text::ASCIITable(); $t->setCols('TOU', 'GISEKI'); foreach (@$senkyo) { $t->addRow(@$_); } print $t->draw(); すると、 .=-------+---------=. | TOU | GISEKI | |=-------+---------=| | jimin | 296 | | komei | 31 | | minsyu