行列排版问题

blackold

回复 2# lkk2003rty


    NR%3，思想不错。

magnet2008

use strict;
use warnings;
my %LINE_HASH;
while(my $num=<DATA> {
        chomp $num;
        $LINE_HASH{$num%3 eq 0 ? 3num%3}.=$num."\t";
}
foreach my $line (sort keys %LINE_HASH) {
        $LINE_HASH{$line}=~s/\t$//;
        print "$LINE_HASH{$line}\n";
}
__DATA__
1
2
3
4
5
6
7
8
结果
1        4        7
2        5        8
3        6