码迷,mamicode.com
首页 > 其他好文 > 详细

[Perl系列—] 2. Perl 中的引用用法

时间:2014-06-25 10:24:14      阅读:293      评论:0      收藏:0      [点我收藏+]

标签:style   class   blog   code   color   get   

Perl 中的引用,为什么要使用引用?

对于熟悉C语言的开发者来说, 指针这个概念一定不陌生。

Perl 的引用就是指针,可以指向变量、数组、哈希表甚至子程序。

Perl5中的两种Perl引用类型为硬Perl引用和符号Perl引用。符号Perl引用含有变量的名字,它对运行时创建变量名并定位很有用,基本上,符号Perl引用就象文件名或UNIX系统中的软链接。而硬Perl引用则象文件系统中的硬链接。

Perl4只允许符号Perl引用,给使用造成一些困难。例如,只允许通过名字对包的符号名哈希表(名为_main{})建立索引。Perl5则允许数据的硬Perl引用,方便多了。
硬Perl引用跟踪Perl引用的计数,当其数为零时,Perl自动将被Perl引用的项目释放,如果该项目是对象,则析构释放到内存池中。Perl本身就是个面向对象的语言,因为Perl中的任何东西都是对象,包和模块使得对象更易于使用。


那在什么状况下会使用到引用呢?

在perl4中,hash表中的value字段只能是scalar,而不能是list,这对于有些情况是很不方便的,比如有下面的数据:

Chicago, USA
Frankfurt, Germany
Berlin, Germany
Washington, USA
Helsinki, Finland
New York, USA

我们想要按国家将城市分类,每个国家后面对应城市列表,如果用perl4来做,必须将城市列表组合成字符串才行,如果用perl5就可以用引用来做,有了引用,就可以构造复杂的hash结构,就可以用列表作为hash的值了。


定义引用

知道了引用的作用,那么如何来定义一个引用呢?

方法1: 使用斜线  \

在变量前面加上一个 \

对于数组变量的引用:

my @array = (1,2,3);
my $arrayref = \@array;

对于哈希变量的引用

my %hash = ("name"=>"oscar999","age"=>30);
my $hashref = \%hash;

对于标量的引用

my $scarlar = 1;
my $scarlarfef = \$scarlar;

方法2. 匿名引用  []  或 {}

匿名引用就是不定义变量,

对于匿名数组来说,直接用中括号 [] 来定义引用

my $arrayref = [1,2,3];
以上就是定义一个匿名数组。

使用这种方式也可以在匿名数组中套匿名数组

my $arrayref = [
        [1, 2, 3],
        [4, 5, 6],
        [7, 8, 9]
];

匿名哈希引用用 {} 定义

my $href = {US=>4,CN=>6};


使用引用

定义了引用, 如何使用呢?

方法1:  与普通变量访问相比, 多加一个 $

这个概念和C 和类似

#定义变量
my $scalar = 1 ;
my @array = (1, 2, 3) ;
my %hash = ("name"=>"oscar999","age"=>30);

#定义引用
my $sref = \$scalar ;   # scalar reference
my $aref = \@array ;    # array reference
my $href = \%hash ;     # hash reference

#使用引用
print $$sref, "\n" ;  
print @$aref, "\n" ;  
print %$href, "\n" ;  
print $$aref[2], "\n" ;
print $$href{‘name‘}, "\n" ;

方法2  与普通变量访问相比, 多加一个 $

数组的使用:

   @a        @{$aref}         An array
   reverse@a      reverse @{$aref}    Reverse the array
   $a[3]      ${$aref}[3]       An element of the array
   $a[3] =17;      ${$aref}[3] =17    Assigning an element

哈希的使用:

   %h          %{$href}           A hash
   keys%h        keys%{$href}        Get the keys from the hash
   $h{‘red‘}       ${$href}{‘red‘}       An element of the hash
   $h{‘red‘} =17      ${$href}{‘red‘} =17    Assigning an element

注意:当{}内部是$var的形式时,{}是可以省略的,也就是说@{$aref}等价于@$aref,不过最好是加上{}。


方法3: 使用箭头符号 -> 这种用法看起来比较简洁

$aref->[]  数组解引用

$href->{}  哈希解引用

$href->()  子过程解引用

看看例子:

$aref->[0] =3 ; 
$href->{name} ="autumn" ; 




前言

[Perl系列—] 2. Perl 中的引用用法,布布扣,bubuko.com

[Perl系列—] 2. Perl 中的引用用法

标签:style   class   blog   code   color   get   

原文地址:http://blog.csdn.net/oscar999/article/details/31341463

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!