Perl中的引用和解引用

对$scalar的引用：

my $variable;
my $reference=$variable;

对$scalar的解引用：

$$reference;

对@array的引用：

my @array;
my $reference=@array;

对@array的解引用：

$$reference[element];
$reference->[element];
@$reference; #to access the whole array


对%hash的引用

my %hash;
my $reference=%hash;

对%hash的解引用：

$$reference{'key'};
$reference->{'key'};
%$reference; #to access the whole hash


对函数的解引用：

&$function(arguments);
$function->(arguments);

对函数的引用：

sub function{}
my $function=&function;

匿名数组：

my $array;
@$array=("a","b");
$$array[3]="c";
$array->[4]="d";
print @$array;

匿名函数：

my $reference=sub {};
&$reference(parameters);

or

sub function{}

${function(parameters)};


ref函数返回相应的引用类型：

ref(@array)=ARRAY;
ref(%hash)=HASH;
ref(&function)=CODE;
ref(@array)=REF;
ref(*hash)=GLOB;

数组的数组：

$array[$i]->[$j];
$arrat[$i][$j]

引用不能作为hash中的键字。

${a}=$a;
${"a"}=$a; #是一个符号引用

如果不使用符号引用： use strict 'refs'；使用："no strict 'refs'";

$name="bam";

$$name=1; #$bam=1

$name->[0]=4; # @bam,$bam[0]=4

$name->{X}="Y";

@$name=(); # clear @bam

&$name; #call &bam