java二维数组_二维数组初始化_【Perl】二维数组

你是否正在寻找关于二维数组的内容？让我把最完整的东西奉献给你：

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

以上就是关于二维数组的全部内容，相信你一定会非常满意。

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-7095-1.html