PERL:如何从数组创建表? [英] PERL : How to create table from an array?

问题描述

我有一个像这样的数组

@array = ( 
           1, 
           some 9-digit number-1, 
           some 9-digit number-2, 
           2, 
           some 9-digit number-3, 
           some 9-digit number-4 
           .....and so on
);

现在我要在表格中将其打印为

Now I want to print this in a table as

1    some 9-digit number-1  some 9-digit number-2
2    some 9-digit number-3  some 9-digit number-4
3    some 9-digit number-5  some 9-digit number-6

我也想将表格打印到文本文件中.什么逻辑是最好的?

I also want to print the table to a text file. What logic would be the best ?

谢谢

推荐答案

我知道了.我使用了 Text::Table 谢谢–

I figured it out. I used Text::Table Thanks – John F

use Text::Table;
my $tb = Text::Table->new( "Heading 1", "Heading 2" , "Heading 3");

for (my $i = 0; $i <= $#array; $i += 3) {
    $tb->load([@array[$i, $i+1, $i+2]]);
}

print $tb; 

这篇关于PERL:如何从数组创建表?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！