【Perl】二维数组

1 数组与引用

此处引用相当于C中的指针。
二维数组第一列不存储具体元素而是存储指向该行一维数组的引用。

2 声明的区别

? ?数组用如下形式声明：
? ? 数组名前加@，之后用()。

my @AoA = (
? ? ? ? ? [ "fred","barney","pebbles","bambam","dino",],
? ? ? ? ? [ "george","jane","elroy","judy",
? ? ? ? ? [ "homer","bart","marge","maggie",
? ? ? ? ?);

? ?引用如下形式声明：
? ? 引用名前用$，之后用[]。

$ref_to_AoA = [
? ? ? ? ? ? ? [ "fred",
? ? ? ? ? ? ? [ "george",
? ? ? ? ? ? ? [ "homer",
? ? ? ? ? ? ?];

3 访问的区别
? ?数组访问 : $AoA[$i][$j]
因为第一列数组里面存放的是引用，所以还可以这样访问：$AoA[$i]->[$j]

? ?引用访问 : $ref_AoA->[$i][$j]
同理引用还可以这样访问：$ref_AoA->[$i]->[$j]

4 添加行元素
my (@AoA,$ref_to_AoA);
subprint_AoA{
? ?for (@AoA) {
? ? ? ?print "@{$_}n";
? ?}
? ?print "n";
}
@AoA = (
? ? ? ? ? [ "fred",
? ? ? ? ?);
say $AoA[2][1];

$ref_to_AoA = [
? ? ? ? ? ? ? [ "fred",
? ? ? ? ? ? ?];
print_AoA();

my @tmp = (1,2,3,4);
push @AoA,[@tmp]; ? ?
# 因为数组AoA第一列需要的是引用，而@tmp是数组，直接赋值会出错。
#[]表示返回@tmp的引用，即把@tmp的引用push到@AoA最后一行，二维数组行数加1.print_AoA();

push @AoA,@tmp;
print_AoA();

覆盖行

$AoA[0] = @tmp;
print_AoA();
#$AoA[0]是scalar型，而@tmp是list型，所以用默认把tmp的个数赋给$AoA[0]，即$AoA[0]=4;$AoA[0] = [@tmp]; ?#overwirte

举例说明：

首先，让我们试着从一个文件中读取二维数组。首先我们演示如何一次性添加一
行。首先我们假设有这样一个文本文件：每一行代表了二维数组的行，而每一个
单词代表了二维数组的一个元素。下面的代码可以把它们储存到 @AoA：
? ?while (<>) {
? ? ? ?@tmp = split;
? ? ? ?push @AoA,[ @tmp ];
? ?}

如果你想用$ref_to_AoA这样的一个引用来代替数组，那你就得这么写：

while(<>){
push@$ref_to_AoA,[split];
}

5 添加列元素
push @{$AoA[0]},"wilma","betty";

省略@{}

usev5.14; ?
# needed for implicit deref of array refs by array opspush $AoA[0],"betty"; ? ? ? ?
# 在5.14版本之前不能通过，因为以前规定push的第一参数必须为数组。在新版本中当$AoA[0]中存在引用时可以通过，但无引用时不正确。print_AoA();
my $aref = undef;
#push $aref,qw/some value/; ? ? # 出错：Not an ARRAY referencemy $aref = [@tmp];
push $aref,qw/some value/; ? ? # 正确，因为aref此时不是个空引用print "$aref : @$arefn";

6 访问与打印
6.1 运算符优先级

$@*%&

6.2 访问一个
print $AoA[$i][$j];
print ref_$AoA->[$i]->[$j];

6.3 遍历
? ?最简单的一种
# ?$aref只是第一列里面的引用，要想访问整行必须加@，又$访问级别比@高，所以（）可以省略。

print "#######################n";
for $aref ( @AoA ) {
? ?print "@$aref n";
}

#使用$#
print "#######################n";
for my $i (0 .. $#AoA){
? ?print "@{$AoA[$i]} n";
}

#使用内嵌循环
print "#######################n";
for my $i (0 .. $#AoA){
? ?for my $j (0 .. $#{$AoA[$i]}){
? ? ? ?print "$AoA[$i][$j]t";
? ?}
? ?print "n";
}

print "#######################n";
for (my $i = 0;$i < $#AoA;$i++) {
?for (my $j = 0;$j < $#{$AoA[$i]};$j++) {
? ?print "$AoA[$i][$j]t";
?}
?print "n";
}

引用的遍历：

print "#########################n";

for $aref ( @$ref_to_AoA ) {
? print "[ @$aref ]n";
}

print "#########################n";
for my $i (0 .. @$ref_to_AoA){
? ?print "@{$ref_to_AoA->[$i]}n";
}

print "#########################n";
for my $i (0 .. @$ref_to_AoA){
? ?for my $j (0 .. @{$ref_to_AoA->[$i]}){
? ? ? ?print "$ref_to_AoA->[$i][$j]t";
? ?}
? ?print "n";
}

print "#########################n";
for (my $i = 0;$i < @$ref_to_AoA;$i++) {
?for (my $j = 0;$j < @{$ref_to_AoA->[$i]};$j++) {
? ?print "$ref_to_AoA->[$i][$j]t";
?}
?print "n";
}

7 切片要访问几行几列元素。和Matlab中访问矩阵的方法差不多。 ? ?切单行多列my @part = ();my $x = 4;for (my $y = 1; $y<4; $y++){ ? ?push @part,$AoA[$x][$y];}# 简单写法@part = @{$AoA[4]}[1..4]; ? ?切多行多列my @newAoA = ();for (my $startx= my $i = 1; $i<=5; $i++){ ? ?for(my $starty = my $j = 2; $j<=4; $j++){ ? ? ? ?$newAoA[$i - $startx][$j - $starty] = $AoA[$i][$j]; ? ?}}#一个循环简单写法for (my $x = 1; $x<=5; $x++){ ? ?push @newAoA,[@{$AoA[i]}[2 .. 4]];} ? ?编写函数subsplice_2D{ ? ?my $lrr = shift; ? ?my($x_l,$x_h,? ? ? $y_l,$y_h) = @_; ? ?return map( ? ? ? ? ? ? ? [ @{$lrr -> [$_]} {$y_l .. $y_h}] ? ? ? ? ? ? ?)$x_l .. $x_h;}@newAoA = splice_2D(@AoA,1=>5,2=>4);