ãæ°ã«å ¥ãã®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
{{#tags}}- {{label}}
{{/tags}}