如何把一个数组转换成另一个数组

kakakan

比如
@arr= ([1 2 3],
          [2 6 4],
          [9 5 8])

转成这个形式
@arr_1=(1,2,3,2,6,4,9,5,8 )

__lxmxn__

1. use Data::Dumper;
   
2. my @arr = ([1,2,3],
   
3.            [2,6,4],
   
4.            [9,5,8]);
   
5. 
   
6. # print Dumper(\@arr);
   
7. 
   
8. my @arr_1;
   
9. for my $arr (@arr) {
   
10.     for my $arr2 ( @{$arr} ) {
    
11.         push @arr_1, $arr2;
    
12.         # print "$arr2\n";
    
13.     }
    
14. }
    
15. 
    
16. print Dumper(\@arr_1);

复制代码

DQP

@arr_1 = map {@{$_}} @arr;

Regards
DQP

wxlfh

楼上的map用得好！！