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

kakakan

UID: 40764
帖子: 115
积分: 264
在线时间: 18 小时

1^# kakakan 发表于 2008-12-16 06:12

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

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

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

__lxmxn__

UID: 3845
帖子: 167
积分: 384
在线时间: 1 天 14 小时

2^# __lxmxn__ 发表于 2008-12-16 08:29

[Copy to clipboard] [ - ]

CODE:

use Data::Dumper;
my @arr = ([1,2,3],
         [2,6,4],
         [9,5,8]);

# print Dumper(\@arr);

my @arr_1;
for my $arr (@arr) {
for my $arr2 ( @{$arr} ) {
      push @arr_1, $arr2;
      # print "$arr2\n";
}
}

print Dumper(\@arr_1);

DQP

UID: 22959
帖子: 5
积分: 11
在线时间: 10 分钟

3^# DQP 发表于 2008-12-16 09:05

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

Regards
DQP

wxlfh

UID: 22014
帖子: 1
积分: 2
在线时间: 10 分钟

4^# wxlfh 发表于 2008-12-16 10:26

楼上的map用得好！！