• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

【Perl】二维数组

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

 

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);

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

# assign to our array, an array of array references
@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;   #$AoA[0]是scalar型,而@tmp是list型,所以用默认把tmp的个数赋给$AoA[0],即$AoA[0]=4;
$AoA[0] = [@tmp];  #overwirte
print_AoA();

5 添加列元素

 

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

省略@{}

 

use v5.14;   # needed for implicit deref of array refs by array ops
push $AoA[0], "wilma", "betty";          # 在5.14版本之前不能通过,因为以前规定push的第一参数必须为数组。在新版本中当$AoA[0]中存在引用时可以通过,但无引用时不正确。
print_AoA();
my $aref = undef;
#push $aref, qw/some value/;     # 出错:Not an ARRAY reference
my $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 遍历

  • 最简单的一种

     

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

     

for my $i (0 .. $#AoA){
    say "elt $i is @{$AoA[$i]}";
}
  • 内嵌循环

     

for my $i (0 .. $#AoA){
    for my $j (0 .. $#{$AoA[$i]}){
        say "elt $i, $j is $AoA[$i][$j]\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]];
}
  • 编写函数

     

sub splice_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);

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


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
perlsort发布时间:2022-07-22
下一篇:
Perl链接数据库发布时间:2022-07-22
热门推荐
热门话题
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap