perl引用 声明方式 调用方式 解引用

hao1nan

　　一、声明，调用
　　perl的引用，相当于c中的指针，有以下几种类型
　　1、一般的声明方式
　　$scalarref = \$foo;          #标量引用 SCALAR ，  $foo='hello';
$constref  = \186_282.42;#标量引用 SCALAR 
$arrayref  = \@arr;      #数组引用   ARRAY  ，   @arr=1..100;
$hashref   = \%hash;      #hash引用   HASH，%hash=('a'=>1,'b'=>2);
$coderef   = \&add;         #子过程引用  CODE，sub add{($a,$b)=@_;  return $a+$b;}
$globref   = \*STDOUT;   #GLOB句柄引用
　　使用方式(以下的数组下标，键值假设都存在)：
　　$$scalarref ;
　　$$constref ; 
　　$$arrayref [0] ;  或 $arrayref ->[0];
　　$$hashref{'a'};    或 $hashref->{'a'};
　　&$coderef(1,2) ; 或 $coderef->(1,2); 
　　2、匿名的方式
　　另外声明方式采用匿名方式声明 如下（针对数组，hash，子过程）
　　$arrRef=[1,2,3,4,5];                #指向匿名数组的引用
　　$hashRef={'a'=>1,'b'=>2};    #指向匿名hash的引用
　　$subRef=sub{return 1;};        #指向匿名子过程的引用
　　使用方式是一样的
　　3、符号表引用的声明方式
　　$scalarref = *foo{SCALAR};      # 和 \$foo 一样
   $arrayref  = *ARGV{ARRAY};         # 和 \@ARGV 一样
   $hashref   = *ENV{HASH};      # 和 \%ENV 一样
   $coderef   = *handler{CODE};         # 和 \&handler 一样
   $globref   = *foo{GLOB};          # 和 \*foo 一样
   $ioref     = *STDIN{IO};             # ？...
　　二、解引用
　　声明一个引用一般是在变量名前加个'\',而解引用是在变量名前加'$',真是有趣
　　如：
　　$s='hello';
　　$sRef=\$s;
　　print $$sRef;   #输出 hello
　　理解了这点，看下面的
　　$refrefref = \\\"howdy";
 print $$$$refrefref;   #输出 howdy