求助:格式化输出,像map函数那样.

ZR_Linux

有个数组:

i1 i2 i3 i4 i5 i6 i7 i8 i9 i10 i11 i12 i13 i14 i15 i16 i17 i18 i19 i20

分成若干组,比如5组吧.
希望格式化成:

i1  i6   i11  i16
i2  i7   i12  i17
i3  i8   i13  i18
i4  i9   i14  i19
i5  i10 i15  i20

kk861123

有

1. #!/usr/bin/perl
   
2. use strict;
   
3. use Data::Dumper;
   
4. use List::MoreUtils qw(part);
   
5. 
   
6. my @array = split /\s+/, 'i1 i2 i3 i4 i5 i6 i7 i8 i9 i10 i11 i12 i13 i14 i15 i16 i17 i18 i19 i20';
   
7. 
   
8. my $i = 0;
   
9. my @new = part { $i++ % 5 } @array;
   
10. print Dumper \@new;

复制代码

ZR_Linux

回复 2# kk861123


    root@localhost ~$ ./a.pl              
$VAR1 = [
          [
            'i1',
            'i6',
            'i11',
            'i16'
          ],
          [
            'i2',
            'i7',
            'i12',
            'i17'
          ],
          [
            'i3',
            'i8',
            'i13',
            'i18'
          ],
          [
            'i4',
            'i9',
            'i14',
            'i19'
          ],
          [
            'i5',
            'i10',
            'i15',
            'i20'
          ]
        ];


大神,麻烦再优化一下吧:
这样看着别扭啊

kk861123

FYI...

1. #!/usr/bin/perl
   
2. use strict;
   
3. use Data::Dumper;
   
4. use List::MoreUtils qw(part);
   
5. 
   
6. my @array = split /\s+/, 'i1 i2 i3 i4 i5 i6 i7 i8 i9 i10 i11 i12 i13 i14 i15 i16 i17 i18 i19 i20';
   
7. 
   
8. my $i = 0;
   
9. my @new = part { $i++ % 5 } @array;
   
10. #print Dumper \@new;
    
11. print "@$_\n" for @new;

复制代码

ZR_Linux

回复 4# kk861123


    好棒..好膜拜

ZR_Linux

回复 4# kk861123


    呃，请问，能帮忙改写一下array带参数的形式吗？


我想i1..i99
a1..a99
就是可以join一下。谢谢了。。。

kk861123

回复 6# ZR_Linux


    不理解...

reb00t

1. awk -vn=5 '{t=split($0,a,/\s+/);for(i=1;i<=n;i++){m=i;while(m<=t){printf a[m]" ";m=m+n};print " "}}'<<<'i1 i2 i3 i4 i5 i6 i7 i8 i9 i10 i11 i12 i13 i14 i15 i16 i17 i18 i19 i20'
   
2. i1 i6 i11 i16  
   
3. i2 i7 i12 i17  
   
4. i3 i8 i13 i18  
   
5. i4 i9 i14 i19  
   
6. i5 i10 i15 i20  

复制代码

sunzhiguolu

1. perl -e '@aData = qw /i1 i2 i3 i4 i5 i6 i7 i8 i9 i10 i11 i12 i13 i14 i15 i16 i17 i18 i19 i20/;foreach my $pos(0..@aData/5){print "$_ " for map {$pos + $_ * 5} 0..3;print"\n"}'

复制代码