Perl中的引用和解引用

my $variable;
my $reference=\$variable;

$$reference;

my @array;
my $reference=\@array;

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

my %hash;
my $reference=\%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(\@array)=ARRAY;
ref(\%hash)=HASH;
ref(\&function)=CODE;
ref(\\@array)=REF;
ref(\*hash)=GLOB;

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

${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