perl 引用（一）

1. 普通变量引用 variable reference

   引用就好比C语言的指针，引用变量存储被引用变量的地址。赋值时注意要在变量前加上 ;使用时要多加一个 $ 。

   当然，引用也可以成为简单变量，可以使用引用的引用，使用时要记得多加一个$.引用也可以互相赋值

   

#!/usr/bin/perl  -w
my $variable="this is a reference test
";
my $refv=$variable;
my $refr=$refv;
print "this is $refv:$refv
";
print "this is $variable $$refv:$$refv";
print "this is reference's reference $$reference :$$refr
";
print "this is $variable $$$refr:$$$refr";

D:>perl reference.pl
this is $refv:SCALAR(0x468b20)
this is $variable $$refv:this is a reference test
this is reference's reference $$reference :SCALAR(0x468b20)
this is $variable $$$refr:this is a reference test

    

2. 数组变量引用 array reference

  数组引用跟变量引用一样

  

#!/usr/bin/perl  -w
my @array=qw/this is an array reference test/;
my $refa=@array;
print "this is @array[0]:$refa->[0]
";
print "this is @array[1]:$$refa[1]
";
print "this is @array use @$refa:@$refa
";

使用一个元素 $$refa[n] 或者$refa->[n]

使用全部元素：@$refa

结果：

this is @array[0]:this
this is @array[1]:is
this is @array use @$refa:this is an array reference test

关于数组使用引用的好处 请参考：http://www.cnblogs.com/tobecrazy/archive/2013/06/11/3131887.html

3. 哈希变量引用 hash reference

哈希引用和变量引用数组引用一样，只需复制时加上 ,使用时加上%

#!/usr/bin/perl  -w
my %hash=('a'=>"Hash",'b'=>"reference",'c'=>"test");
my $refh=%hash;
print "this is $$refh:$$refh{'a'}
";
print "use whole hash with \%$refh 
";
foreach $key (keys %$refh)
{
    print "$key => $$refh{$key}";
    print "
";
}

%$refh 使用整个哈希

$$refh{$key} 使用一个hash 元素

运行结果：

this is $$refh:Hash
use whole hash with %$refh
c => test
a => Hash
b => reference

4. 匿名引用

        a.匿名变量

     $refva="this is anonymous variable ";

        使用方法和变量引用一样，只需要$$refva

      b. 匿名数组 注意使用方括号[]，使用方法同数组引用一样

       $refaa=[qw/this is anonymous array/];

　　c. 匿名哈希 注意使用花括号 {},使用方法同hash引用

        $refha{'a'=>"Hash",'b'=>"reference",'c'=>"test" }

      

总结：

 　　　　1.引用赋值需要加 ,使用时变量在引用变量前加$ ,数组加@ 哈希加%

　　　　 2.引用可以用在两个数组在函数中传递，避免数组被压缩成一个数组

　　　　 3.引用可以对匿名数组 变量 哈希使用

　　　　 4.引用可以创造perl结构体，使用二维数组（下一次总结）