Perl学习笔记(二)引用

Perl学习笔记之Perl的引用

 

首先，应该明确所有的引用都是用标量来表示的.对于标量引用数组采用 $ref =[],对 标量引用散列采用 $ref={};

 

1 对数组的引用,采用\符号.

 

 举例:(1)对变量的引用

 

 my @lines=qw(a b c);

 my $ref =\@lines;

 

  print @{$ref}; #引用整个数组

  print @{$ref}[0]; #引用单个元素 或者 $ref->[0];

 

举例:(2)直接引用

 

 $ref = ["a","b","c"];

 print  @{$ref} #引用整个数组

 print  $ref->[0] #引用单个元素 或者 print @{$ref}[0];

 

 

 

2 对散列的引用

 

 举例:(1)对变量的引用

 

 my %lines=(a=>"A",b=>"B");

 my $ref =\%lines;

 print ${$ref}{"a"};#引用单个元素

 

 

举例:(2)直接引用

 

 my $ref ={"a"=>"A","b"=>"B"};

 print ${$ref}{"a"};#引用单个元素 或 print $ref->{"a"};

 

3 对标量的引用

举例:

 

  $name="Whole";

  $ref=\$ref;

 

 print ${$ref}; //打印出标量$name的值

 

 4 对方法的引用

 

 举例:(1)对变量的引用

 

 sub say {print "hello\n";} 

 $ref = \⊂

 

 $ref->();//调用方法

 

 

举例:(2)直接引用

 

 my $ref =sub {print "hello\n";} 

 

 

 $ref->();//调用方法