perl 引用备忘
[*]//$ref是一个匿名数组引用，同时嵌套着匿名数组引用，匿名散列引用
[*]my $ref = ,{a=>1,b=>2,c=>3,},];
[*]
[*]//访问其中的一个元素1
[*]printf "%d\n",$ref->;
[*]printf "%d\n",$$ref;
[*]printf "%d\n",${$ref};
[*]
[*]//访问其中的一个嵌套的匿名数组引用的值a
[*]printf "%s\n",$ref->->;
[*]printf "%s\n",$$ref;
[*]printf "%s\n",${$ref};
[*]
[*]//访问其中的一个嵌套的匿名散列引用
[*]printf "%d\n",$ref->->{a};
[*]printf "%d\n",${$ref}{a};
[*]
[*]print @{$ref->},"\n";
[*]print keys %{$ref->},"\n";
[*]print values %{$ref->},"\n";
[*]
[*]my $i = 0;
[*]
[*]while ($i < 3) {
[*] print $ref->->[$i],"\n";
[*]}continue{$i++;};
[*]
一个使用引用的sample
[*]my $ref = {};
[*]
[*]open my $file,'
页:
[1]