Perl二维数组

1 数组与引用
2 声明的区别
3 访问的区别
4 添加行元素
5 添加列元素
6 访问与打印
- 6.1 运算符优先级
- 6.2 访问一个
- 6.3 遍历
7 切片

1?数组与引用

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

2?声明的区别

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

?

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

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

?

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

4?添加行元素

my (@AoA,$ref_to_AoA);

sub print_AoA{
    for (@AoA) {
        print "@{$_}n";
    }
    print "n";
}

# assign to our array,an array of array references @AoA[2][1];

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

push @tmp;
print_AoA();

覆盖行

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

5?添加列元素

push @{$AoA[0]},82)">"wilma",82)">"betty";

省略@{}

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

6?访问与打印

6.1?运算符优先级

$@*%&

6.2?访问一个

print $j];
print ref_$AoA->[$j];

6.3?遍历

最简单的一种

?

for $aref ( @AoA )                # $aref只是第一列里面的引用，要想访问整行必须加@，又$访问级别比@高，所以（）可以省略。 {
    say "t [ @$aref ],";
}

使用$#

?

for i (0 .. $#AoA){
    say "elt $i is @{$AoA[$i]}";
}

内嵌循环

?

AoA){
    j (0 .. $#{$i]}){
        say "elt $i,$j is $AoA[$i][$j]n";
    }
}

7?切片

要访问几行几列元素。和Matlab中访问矩阵的方法差不多。

切单行多列

?

part = ();
x = 4;
for (y = 1; $y<4; $y++){
    push @part,45)">x][$y];
}
简单写法 @part = @{$AoA[4]}[1..4];

切多行多列

?

newAoA = ();
startx= i = 1; $i<=5; $i++){
    for(starty = j = 2; $j<=4; $j++){
        $newAoA[$i - $startx][$j - $starty] = $j];
    }
}

一个循环简单写法 x = 1; $x<=5; $x++){
    push @newAoA,[@{$AoA[i]}[2 .. 4]];
}

编写函数

?

splice_2D{
    lrr = shift;
    my($x_l,45)">x_h,45)">y_l,45)">y_h) = @_;
    return map(
               [ @{$lrr -> [$_]} {$y_l .. $y_h}]
              )$x_l .. $x_h;
}
@newAoA = splice_2D(@ 
     Author: visaya fan?<visayafan[AT]gmail.com or visayafan[AT]163.com> 
     Date: 2011-10-29 15:00:34 
     HTML generated by org-mode 6.33x in emacs 23