perl中的数据结构

1 给列表和引用赋值

# 给一个数组赋予一个数组引用列表。

@Aoa = ( ["fred", "barney" ], ["george", "jane", "elroy" ], ["homer", "marge", "bart" ], );

print $Aoa[2][1]; # 打印 "marge"

 

整个列表都封装在圆括弧里，而不是花括弧里，因为你是在给一个列表赋值而不是给引用赋值。

如果你想要一个指向数组的引用，那么你要使用方括弧：

 

# 创建一个指向一个数组的数组的引用。


$ref_to_AoA = [

[ "fred", "barney", "pebbles", "bamm bamm", "dino", ],

[ "homer", "bart", "marge", "maggie", ],

[ "george", "jane", "elroy", "judy", ],

];



print
 $ref_to_AoA->[2][3];      # 打印 "judy"



2 向数组中增加新的行和新的列
 增加新的列：push(@arr,['a',b']);
 增加新的行： 可以直接赋值
 for $x (0..9){ # 对每一行...
 for $y (0..9) { # 对每一列...
 $Aoa[$x][$y] = $x+$y; # ...设置调用
 }
 }
 
 如果需要打印数组中的每个元素的值：
 foreach my $o1(@Aoa)
 {
 foreach my $i1(@{$o1})
 {
 print $i1."/n";
 }
 }
 如果需要打印行：
 for $row (@Aoa) {
 print "@$row/n";
 }
 
 3访问数组的片段：
 

 @part = ();

   for ($y = 7; $y < 13; $y++) {

      push @part, $AoA[4][$y];

   }

或者：@part = @{ $AoA[4] } [7..12];




3 数组使用时候的常见错误：

for
 $i (1..10) {

        @array = somefunc($i);

        $AoA[$i] = /@array;         # 错了！


}

错误原因分析：

虽然在每次循环中@array都发生了变化，但循环完成之后，$AOA中所有的值都指向同一数组的引用。

因此 print @{$AoA[1]} 将检索和 print @{$AoA[2]} 一样的数值。 



正确的做法为：

for
 $i (1..10) {

        @array = somefunc($i);

        $AoA[$i] = [ @array ];      # 正确！


}



在 @array 周围的方括弧创建一个新的匿名数组，@array 里的元素都将拷贝到这里。实际上[@array]返回的为匿名变量。

 数组的散列：
 散列的初始化
 my %HoA = (
 flintstones => [ "fred", "barney" ],
 jetsons => [ "george", "jane", "elroy" ],
 simpsons => [ "homer", "marge", "bart" ],
 );
 向散列中添加新的元素：
 $Hoa{test}=[ "tinky winky", "dipsy", "laa-laa", "po" ];
 遍历散列中的元素：
 for $family ( keys %HoA ){
 print "$family: @{ $HoA{$family} }/n";
 }
 
 对散列追加索引：
 for $family ( keys %HoA ) {
 print "$family: ";#获取关键字
 for $i ( 0 .. $#{ $HoA{$family} }) {#

 $#{ $HoA{$family} }

表示关键字多对应的数组的下标

 print " $i = $HoA{$family}[$i]";#获取关键字所对应的数组中的具体的某个值
 }
 print "/n";
 }