perl引用

 1:  #对标量的引用
 2:  $first = 100;
 3:  $ref_first = $first;
 4:  print "$$ref_firstn";
 5:  #100
 6:  
 7:  #对数组的引用
 8:  @second = (1,3);
 9:  $ref_second = @second;
10:  print "@$ref_secondn";
11:  #1 2 3
12:  
13:  #对hash的引用
14:  %hash = (apple => fruit);
15:  $ref_hash = %hash;
16:  print "$$ref_hash{apple}n";
17:  #friut
18:  
19:  #第子程序的引用
20:  sub subroutine
21:  {
22:      print "Hello!“；
23:  }
24:  $sub_ref = &;subroutine;
25:  &$sub_ref;
26:  

假设某个引用存在，在进行了反引用操作，则那个引用自动生成，

1:  $$ref=5;
2:  print "$$refn";
3:  print "$refn"; 
4:  

引用的最大用途之一就是向子程序传递数组和hash表。如果直接传递数组或者 hash，则他们将一起展开到@_中。?下面这个程序将对两个数组的引用传递给子程序，这个例子将对两个数组的引用 传递给子程序，这个子程序将数组中对应的元素相加，并返回产生的数组，向子 程序传递引用而不是传递数组本身，就避免将数组展开到无法区分的长列表中：

 1:  @a = (1,3);
 2:  @b = (4,5,6);
 3:  
 4:  sub addem
 5:  {
 6:      my ($reference1,$reference2)=@_;
 7:      for ($loop_index = 0; $loop_index <= $#$reference1;$loop_index++)
 8:      {
 9:          $result[$loop_index] = @$reference1[$loop_index] +
10:                  @$reference2[$loop_index];
11:      }
12:      return @result;
13:  }
14:  @array = addem(@a,@b);
15:  print join (',',@array);

使用方括号，可创建无名称数组，也就是匿名数组

1:  $array_ref = [1,3,4];
2:  print $$array_ref[0];
3:  #1
4:  #也可以使用箭头运算符来反引用数组运算符号
5:  $array_ref = [1,4];
6:  print $array_ref->[0];

匿名数组在很多方面都有作用，例如，可以使用匿名数组构成符来建立数组的副本， 以进行破坏性测试，而不会损害原来的数组。

1:  @a = （1，2，3);
2:  $s = pop @a;
3:  print "@an";
4:  #1 2
5:  #但是，如果用匿名数组构成符建立数组副本，则副本会发生变化，而原始数据保持不变
6:  @a = (1,3);
7:  $s = pop @{[@a]}
8:  print "@an";
9:  # 1 2 3

匿名数组提供了一种有用的方法，将子程序调用和或者表达式的结果插入到双引号 内的字符串中，

1:  print "@{[uc(hello)]} there.n";
2:  #HELLO there.

perl 作为块来计算@{},而块在计算时将创建对匿名数组的引用。
如果想使用$#array的语法来着匿名数组的长度，只需要语法$#$来使用对匿名数组的引用。

1:  $ref = [1,3];
2:  for ($total = 0,$loop=0;$loop<=$#$ref+1;$loop++)
3:  {
4:      $total += $$ref[$loop];
5:  }
6:  print "Average value = ".$total / ($#$ref +1);
7:  #Average value = 2