求助:格式化輸出,像map函數(shù)那樣.

ZR_Linux

有個數(shù)組:

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;

復(fù)制代碼

ZR_Linux

回復(fù) 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'
          ]
        ];


大神,麻煩再優(yōu)化一下吧:
這樣看著別扭啊

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;

復(fù)制代碼

ZR_Linux

回復(fù) 4# kk861123


    好棒..好膜拜

ZR_Linux

回復(fù) 4# kk861123


    呃，請問，能幫忙改寫一下array帶參數(shù)的形式嗎？


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

kk861123

回復(fù) 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  

復(fù)制代碼

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"}'

復(fù)制代碼