【Perl】二维数组

lxy777

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

　　1 数组与引用
　　此处引用相当于C中的指针。
　　二维数组第一列不存储具体元素而是存储指向该行一维数组的引用。
　　2 声明的区别
　　数组用如下形式声明：
　　数组名前加@，之后用()。
　　my @AoA = (
　　[ "fred", "barney", "pebbles", "bambam", "dino", ],
　　[ "george", "jane", "elroy", "judy", ],
　　[ "homer", "bart", "marge", "maggie", ],
　　);
　　引用如下形式声明：
　　引用名前用$，之后用[]。
　　$ref_to_AoA = [
　　[ "fred", "barney", "pebbles", "bambam", "dino", ],
　　[ "george", "jane", "elroy", "judy", ],
　　[ "homer", "bart", "marge", "maggie", ],
　　];
　　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", "barney", "pebbles", "bambam", "dino", ],
　　[ "george", "jane", "elroy", "judy", ],
　　[ "homer", "bart", "marge", "maggie", ],
　　);
　　say $AoA[2][1];
　　$ref_to_AoA = [
　　[ "fred", "barney", "pebbles", "bambam", "dino", ],
　　[ "george", "jane", "elroy", "judy", ],
　　[ "homer", "bart", "marge", "maggie", ],
　　];
　　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], "wilma", "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 : @$aref\n";
　　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