Perl基础 Perl引用和数组用法解析

开发 架构
你对Perl应用和数组的概念是否比较熟悉,这里和大家分享一下,Perl引用就是指针,可以指向变量、数组、哈希表(也叫关联数组)甚至子程序。

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

Perl学习笔记

一、Perl引用简介

Perl引用就是指针,可以指向变量、数组、哈希表(也叫关联数组)甚至子程序。Pascal或C程序员应该对Perl引用(即指针)的概念很熟悉,Perl引用就是某值的地址,对其的使用则取决于程序员和语言的规定。在Perl中,可以把Perl引用称为指针,二者是通用的,无差别的。Perl引用在创建复杂数据方面十分有用。
Perl5中的两种Perl引用类型为硬引用和符号引用。符号引用含有变量的名字,它对运行时创建变量名并定位很有用,基本上,符号Perl引用就象文件名或UNIX系统中的软链接。而硬Perl引用则象文件系统中的硬链接。

Perl4只允许符号Perl引用,给使用造成一些困难。例如,只允许通过名字对包的符号名哈希表(名为_main{})建立索引。Perl5则允许数据的硬Perl引用,方便多了。
硬Perl引用跟踪Perl引用的计数,当其数为零时,Perl自动将被Perl引用的项目释放,如果该项目是对象,则析构释放到内存池中。Perl本身就是个面向对象的语言,因为Perl中的任何东西都是对象,包和模块使得对象更易于使用。
简单变量的硬Perl引用很简单,对于非简单变量的Perl引用,你必须显式地解除Perl引用并告诉其应如何做,详见《第章Perl中的面向对象编程》。

二、使用Perl引用

本章中,简单变量指像$pointer这样的变量,$pointer仅含一个数据项,其可以为数字、字符串或地址。
任何简单变量均可保存硬Perl引用。因为数组和哈希表含有多个简单变量,所以可以建立多种组合而成的复杂的数据结构,如数组的数组、哈希表的数组、子程序的哈希表等等。只要你理解其实只是在用简单变量在工作,就应该可以正确的在最复杂的结构中正确地解除Perl引用。

首先来看一些基本要点。

如果$pointer的值为一个数组的指针,则通过形式@$pointer来访问数组中的元素。形式@$pointer的意义为“取出$pointer中的地址值当作数组使用”。类似的,%$pointer为指向哈希表中***个元素的Perl引用。
有多种构建Perl引用的方法,几乎可以对任何数据建立Perl引用,如数组、简单变量、子程序、文件句柄,以及--C程序员会感兴趣的--Perl引用。Perl使你有能力写出把自己都搞糊涂的极其复杂的代码。:)
下面看看Perl中创建和使用Perl引用的方法。

三、使用反斜线(\)操作符

反斜线操作符与C语言中传递地址的操作符&功能类似。一般是用\创建变量又一个新的Perl引用。下面为创建简单变量的Perl引用的例子:
 

  1. $variavle=22;  
  2. $pointer=\$variable;  
  3. $ice="jello";  
  4. $iceprt=\$ice;  

Perl引用$pointer指向存有$variable值的位置,Perl引用$iceptr指向"jello"。即使最初的Perl引用$variable销毁了,仍然可以通过$pointer访问该值,这是一个硬Perl引用,所以必须同时销毁$pointer和$variable以便该空间释放到内存池中。
在上面的例子中,Perl引用变量$pointer存的是$variable的地址,而不是值本身,要获得值,形式为两个$符号,如下:
 

  1. #!/usr/bin/Perl  
  2. $value=10;  
  3. $pointer=\$value;  
  4. printf"\nPointerAddress$pointerof$value\n";  
  5. printf"\nWhatPointer*($pointer)pointsto$$pointer\n";  

结果输出如下:

PointerAddressSCALAR(0x806c520)of10
WhatPointer*(SCALAR(0x806c520))pointsto10
每次运行,输出结果中的地址会有所改变,但可以看到$pointer给出地址,而$$pointer给出$variable的值。
看一下地址的显示,SCALAR后面一串十六进制,SCALAR说明该地址指向简单变量(即标量),后面的数字是实际存贮值的地址。
注意:指针就是地址,通过指针可以访问该地址处存贮的数据。如果指针指向了无效的地址,就会得到不正确的数据。通常情况下,Perl会返回NULL值,但不该依赖于此,一定要在程序中把所有的指针正确地初始化,指向有效的数据项。#p#

四、Perl引用和数组

关于Perl语言应该记住的最重要的一点可能是:Perl中的数组和哈希表始终是一维的。因此,数组和哈希表只保存标量值,不直接存贮数组或其它的复杂数据结构。数组的成员要么是数(或字符串)要么是Perl引用。
对数组和哈希表可以象对简单变量一样使用反斜线操作符,数组的Perl引用如下:

  1. 1#!/usr/bin/Perl  
  2. 2#  
  3. 3#UsingArrayreferences  
  4. 4#  
  5. 5$pointer=\@ARGV;  
  6. 6printf"\nPointerAddressofARGV=$pointer\n";  
  7. 7$i=scalar(@$pointer);  
  8. 8printf"\nNumberofarguments:$i\n";  
  9. 9$i=0;  
  10. 10foreach(@$pointer){  
  11. 11printf"$i:$$pointer[$i++];\n";  
  12. 12}  

运行结果如下:
 

  1. $test1234  
  2. PointerAddressofARGV=ARRAY(0x806c378)  
  3. Numberofarguments:4  
  4. 0:1;  
  5. 1:2;  
  6. 2:3;  

3:4;第5行将Perl引用$pointer指向数组@ARGV,第6行输出ARGV的地址。$pointer返回数组***个元素的地址,这与C语言中的数组指针是类似的。第7行调用函数scalar()获得数组的元素个数,该参数亦可为@ARGV,但用指针则必须用@$pointer的形式指定其类型为数组,$pointer给出地址,@符号说明传递的地址为数组的***个元素的地址。第10行与第7行类似,第11行用形式$$pointer[$i]列出所有元素。
对关联数组使用反斜线操作符的方法是一样的--把所有关联数组名换成Perl引用$poniter。注意数组和简单变量(标量)的Perl引用显示时均带有类型--ARRAY和SCALAR,哈希表(关联数组)和函数也一样,分别为HASH和CODE。
与数组类似,通过Perl引用访问哈希表的元素形式为$$pointer{$index},当然,$index是哈希表的键值,而不仅是数字。还有几种访问形式,此外,构建哈希表还可以用=>操作符,可读性更好些。

五、多维数组

语句@array=list;可以创建数组的Perl引用,中括号可以创建匿名数组的Perl引用。下面语句为用于画图的三维数组的例子:
$line=['solid','black',['1','2','3'],['4','5','6']];
此语句建立了一个含四个元素的三维数组,变量$line指向该数组。前两个元素是标量,存贮线条的类型和颜色,后两个元素是匿名数组的Perl引用,存贮线条的起点和终点。访问其元素语法如下:

$arrayReference->[$index]single-dimensionalarray
$arrayReference->[$index1][$index2]two-dimensionalarray
$arrayReference->[$index1][$index2][$index3]three-dimensionalarray
可以创建在你的智力、设计经验和计算机的内存允许的情况下极尽复杂的结构,但***对可能读到或管理你的代码的人友好一些--尽量使代码简单些。另一方面,如果你想向别人炫耀你的编程能力,Perl给你足够的机会和能力编写连自己都难免糊涂的代码。:)
建议:当你想使用多于三维的数组时,***考虑使用其它数据结构来简化代码。


六、子程序的Perl引用

Perl中子程序的Perl引用与C中函数的指针类似,构造方法如下:
$pointer_to_sub=sub{...declarationofsub...};
通过所构造的Perl引用调用子程序的方法为:
&$pointer_to_sub(parameters);

本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/njuxukai/archive/2009/08/27/4487084.aspx

【编辑推荐】

  1. 详解Perl引用/指针用法
  2. 解析Perl引用中Perl直接应用用法
  3. 畅谈Perl数组的使用技巧
  4. Perl变量中Perl数组概念详解
  5. 技术分享 解析Perl模块创建和导入方法
责任编辑:佚名 来源: csdn.net
相关推荐

2010-07-19 09:52:04

Perl标量

2010-07-20 15:02:20

Perl数组

2010-07-16 13:45:41

Perl引用

2010-07-13 16:40:41

Perl引用

2010-07-20 13:53:44

Perl引用

2010-07-20 15:36:58

Perl语法

2010-07-16 16:40:48

Perl引用

2010-07-13 09:58:51

Perl关联数组

2010-07-16 10:44:54

Perl数组

2010-07-13 13:49:43

Perl foreac

2010-07-13 14:26:11

Perl数组

2010-07-19 16:25:06

Perl数组

2010-07-14 15:32:21

Perl转义字符

2010-07-16 13:10:36

Perl哈希表

2010-07-21 13:43:30

Perl数组

2010-07-20 09:45:04

Perl继承

2010-07-15 10:22:23

Perl控制结构

2010-07-19 14:13:41

Perl函数

2010-07-16 08:47:53

Perl if语句

2010-07-16 16:56:01

Perl构造函数
点赞
收藏

51CTO技术栈公众号