Perl数组和引用使用指导

开发 架构
本文向大家简单介绍一下Perl数组和引用的概念,关于Perl语言应该记住的最重要的一点可能是:Perl中的Perl数组和哈希表始终是一维的。

本文和大家重点讨论一下Perl数组和引用的概念,Perl中的Perl数组和哈希表始终是一维的。因此,Perl数组和哈希表只保存标量值,不直接存贮Perl数组或其它的复杂数据结构。Perl数组的成员要么是数(或字符串)要么是引用。

一、Perl数组和引用

关于Perl语言应该记住的最重要的一点可能是:Perl中的Perl数组和哈希表始终是一维的。因此,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行将引用$pointer指向Perl数组@ARGV,第6行输出ARGV的地址。$pointer返回Perl数组***个元素的地址,这与C语言中的Perl数组指针是类似的。第7行调用函数scalar()获得Perl数组的元素个数,该参数亦可为@ARGV,但用指针则必须用@$pointer的形式指定其类型为Perl数组,$pointer给出地址,@符号说明传递的地址为Perl数组的***个元素的地址。第10行与第7行类似,第11行用形式$$pointer[$i]列出所有元素。
对关联Perl数组使用反斜线操作符的方法是一样的--把所有关联Perl数组名换成引用$poniter。注意Perl数组和简单变量(标量)的引用显示时均带有类型--ARRAY和SCALAR,哈希表(关联Perl数组)和函数也一样,分别为HASH和CODE。

与Perl数组类似,通过引用访问哈希表的元素形式为$$pointer{$index},当然,$index是哈希表的键值,而不仅是数字。还有几种访问形式,此外,构建哈希表还可以用=>操作符,可读性更好些。下面再看一个例子:

  1. 1#!/usr/bin/perl  
  2. 2#  
  3. 3#UsingArrayreferences  
  4. 4#  
  5. 5%weekday=(  
  6. 6'01'=>'Mon',  
  7. 7'02'=>'Tue',  
  8. 8'03'=>'Wed',  
  9. 9'04'=>'Thu',  
  10. 10'05'=>'Fri',  
  11. 11'06'=>'Sat',  
  12. 12'07'=>'Sun',  
  13. 13);  
  14. 14$pointer=\%weekday;  
  15. 15$i='05';  
  16. 16printf"\n==================starttest=================\n";  
  17. 17#  
  18. 18#Thesenexttwolinesshouldshowanoutput  
  19. 19#  
  20. 20printf'$$pointer{$i}is';  
  21. 21printf"$$pointer{$i}\n";  
  22. 22printf'${$pointer}{$i}is';  
  23. 23printf"${$pointer}{$i}\n";  
  24. 24printf'$pointer->{$i}is';  
  25. 25  
  26. 26printf"$pointer->{$i}\n";  
  27. 27#  
  28. 28#Thesenexttwolinesshouldnotshowanything29#  
  29. 30printf'${$pointer{$i}}is';  
  30. 31printf"${$pointer{$i}}\n";  
  31. 32printf'${$pointer->{$i}}is';  
  32. 33printf"${$pointer->{$i}}";  
  33. 34printf"\n==================endoftest=================\n";  
  34. 35  

结果输出如下:

 

 

  1. ==================starttest=================  
  2. $$pointer{$i}isFri  
  3. ${$pointer}{$i}isFri  
  4. $pointer->{$i}isFri  
  5. ${$pointer{$i}}is  
  6. ${$pointer->{$i}}is 
  7. ==================endoftest================= 

 可以看到,前三种形式的输出显示了预期的结果,而后两种则没有。当你不清楚是否正确时,就输出结果看看。在Perl中,有不明确的代码就用print语句输出来实验一下,这能使你清楚Perl是怎样解释你的代码的。

二、多维Perl数组

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

  1. $arrayReference->[$index]single-dimensionalarray  
  2. $arrayReference->[$index1][$index2]two-dimensionalarray  
  3. $arrayReference->[$index1][$index2][$index3]three-dimensionalarray  

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

下面为创建和使用二维Perl数组的例子:

  1. 1#!/usr/bin/perl  
  2. 2#  
  3. 3#UsingMulti-dimensionalArrayreferences  
  4. 4#  
  5. 5$line=['solid','black',['1','2','3'],['4','5','6']];  
  6. 6print"\$line->[0]=$line->[0]\n";  
  7. 7print"\$line->[1]=$line->[1]\n";  
  8. 8print"\$line->[2][0]=$line->[2][0]\n";  
  9. 9print"\$line->[2][1]=$line->[2][1]\n";  
  10. 10print"\$line->[2][2]=$line->[2][2]\n";  
  11. 11print"\$line->[3][0]=$line->[3][0]\n";  
  12. 12print"\$line->[3][1]=$line->[3][1]\n";  
  13. 13print"\$line->[3][2]=$line->[3][2]\n";  
  14. 14print"\n";#Theobligatoryoutputbeautifier 

.
结果输出如下:

  1. $line->[0]=solid  
  2. $line->[1]=black  
  3. $line->[2][0]=1  
  4. $line->[2][1]=2  
  5. $line->[2][2]=3  
  6. $line->[3][0]=4  
  7. $line->[3][1]=5  
  8. $line->[3][2]=6  
  9.  

【编辑推荐】

  1. Perl语法 Perl数组和列表用法解析
  2. 畅谈Perl数组的使用技巧
  3. Perl数组用法详尽解读
  4. 技术分享 Perl数组--列表的存贮如何进行
  5. 技术分享 解析Perl模块创建和导入方法

 

责任编辑:佚名 来源: csdn.net
相关推荐

2010-07-20 13:02:08

Perl数组

2010-07-26 13:13:33

Perl函数参数

2010-07-21 13:59:59

Perl引用

2010-07-21 13:53:07

Perl引用

2010-07-20 13:12:11

Perl数组

2010-07-19 13:17:12

Perl二维数组

2010-07-23 13:23:10

Perl语言

2010-07-13 14:26:11

Perl数组

2010-07-20 15:02:20

Perl数组

2010-07-26 13:27:19

Perl多线程

2010-07-26 14:45:17

Perl Hash

2010-07-23 14:12:14

Perl Hash

2010-07-21 11:17:30

2010-07-13 13:15:17

Perl

2010-07-15 09:10:08

Perl函数手册

2010-07-19 13:49:17

Perl函数

2010-07-19 09:45:09

Perl数组

2010-07-26 15:17:51

Perl解析XML文件

2010-07-26 15:06:29

Perl解析XML文件

2010-07-16 16:40:48

Perl引用
点赞
收藏

51CTO技术栈公众号