PERL: Как создать таблицу из массива?

Question

У меня есть массив как этот

@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 
); 

Теперь я хочу, чтобы напечатать это в таблице, как

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 

Я также хочу, чтобы напечатать таблицу в текстовый файл. Какая логика была бы лучшей?

Thanks

Answer 1

Я понял. Я использовал Text::Table Спасибо - 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; 

Answer 2

модуль не является действительно необходимым для этой простой задачи.

Альтернативное решение, использующее только splice и printf.

use strict; 
use warnings; 

my @array = ( 
    1, 999999991, 999999992, 
    2, 999999993, 999999994, 
    3, 999999995, 999999996, 
); 

while (@array >= 3) { 
    printf "%-4s %-10s %s\n", splice @array, 0, 3; 
} 

выход

1 999999991 999999992 
2 999999993 999999994 
3 999999995 999999996