如何取出 二维数组的第一个数组

ztj2247

比如有 @a = [ [1,2,3],[2,2,3],[3,2,3]]
$c = \@a;
我要取出 第一个数组 [1,2,3]存入 @b

@b = shift @{$c};

好像不行啊  求教

兰花仙子

@b = shift @{$c};

这里就算不是二维数组，比如

1. @a = (1,2,3);
   
2. @b = shift @a;

复制代码

你试试可以么？

FenRagwort

1. @a = ( [1,2,3],[2,2,3],[3,2,3] )

复制代码

圆括号，不是方括号

bruce_wang_jane

C:\Users\bruce>perl -e "@a=([1,2,3],[2,3]); $b=\@a; @c=@{$b->[0]};print qq(@c\n)"

1 2 3

2gua

再看一遍《Learning Perl》。

justlooks

1. 
   
2. perl -e '$arref=[[1,3,4],[8,5,2],[9,7,0]];@arr=@{$arref->[0]};print @arr,"\n";'
   

复制代码

meihuaqi

1. bsd2# perl -e '@a = [ [1,2,3],[2,2,3],[3,2,3]];$c = \@a;@b = @{$c->[0]->[0]}; print "@b\n";'
   
2. 1 2 3

复制代码

iLRainyday

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my @array = ([1,2,3], [4,5,6], [7,8,9]);
   
7. 
   
8. my @array_1st = @{shift @array };
   
9. 
   
10. print "@array_1st";

复制代码

seufy88

比如有 @a = [ [1,2,3],[2,2,3],[3,2,3]]
$c = \@a;
我要取出 第一个数组 [1,2,3]存入 @b

@b = shift  ...
ztj2247 发表于 2011-02-21 19:44

${$c}[0]取出的是[1,2,3] 简写成$c->[0]
接着$c->[0]->[0]就是数值1
$c->[0]->[1]就是数值2,$c->[0]->[2]同理

ztj2247

iLRainyday 发表于 2011-02-22 10:02

    这个才是我想要的