perl的引用

变量的赋值:在内存里存放值

引用: 存放的是其他变量的地址,地址会指向变量

引用变量的名字: $ref

hello world[oracle@june2 1]$ cat 1.pl 
{my $a = "hello world"; $ra = $a;}print $$ra;


[oracle@june2 1]$ perl 1.pl 
hello world[oracle@june2 1]$


$ra = $a 表示简单变量的引用


$$ra 表示取变量的值




[oracle@june2 1]$ cat 2.pl 
print "1.引用的变量销毁,仍可引用 ";
{
    my $ra;
  {
my $a = "hello world";
###创建引用变量
  $ra = $a;
}
##打印引用变量的值 
 print "1.ref=$$ra a=$a "
}
print "2.ref=$$ra ";




[oracle@june2 1]$ perl 2.pl 
1.引用的变量销毁,仍可引用
1.ref=hello world a=
2.ref=


引用的使用:


使用简单变量:$$ref  ${$ref}
数组：@$ref @{$ref};  
元素：$$ref[0]    $ref->[0];
散列：%$ref  %{$ref};   
元素：$$ref{‘a’} $ref->{‘a’};


函数：&$ref(a,b);   $ref->(a,b)文件：$ref