数组组合--平行打印

thomaslyang

废话少说进入正题吧：

三个sb数组如下：
$arr_one = [[a, b, c] ,
                   [d, e,  f] ,
                   [j, d, k]]


$arr_two = [ [x,  y, z],
                   [u,  v,  w],
                   [m,  n,  p]]

$arr_three = [[q,  s,  t],
                     [h,  i,  l],
                     [p,  o, v]]

要求输出如下格式：
a b c x y z q s t
d e f u v w h i l
j d k m n p p o v

kk861123

回复 1# thomaslyang

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $arr_one   = [ ['a','b','c'],['d','e','f'],['j','d','k'] ];
   
6. 
   
7. my $arr_two   = [ ['x','y','z'],['u','v','w'],['m','n','p'] ];
   
8. 
   
9. my $arr_three = [ ['q','s','t'],['h','i','l'],['p','o','v'] ];
   
10. 
    
11. for my $i (0..2) {
    
12.         print join(' ',@{ $arr_one->[$i] }),' ';
    
13.         print join(' ',@{ $arr_two->[$i]}),' ';
    
14.         print join(' ',@{ $arr_three->[$i]}),' ';
    
15.         print "\n";
    
16. }
    
17. 
    

复制代码