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

一、声明，调用

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