perl教学第十二篇 perl5中的引用之二

运行结果如下：

$ test 1 2 3 4
pointer address of argv = array(0x806c378)
number of arguments : 4
0 : 1;
1 : 2;
2 : 3;
3 : 4;
第5行将引用$pointer指向数组@argv，第6行输出argv的地址。$pointer返回数组第一个元素的地址，这与c语言中的数组指针是类似的。第7行调用函数scalar()获得数组的元素个数，该参数亦可为@argv，但用指针则必须用@$pointer的形式指定其类型为数组，$pointer给出地址，@符号说明传递的地址为数组的第一个元素的地址。第10行与第7行类似，第11行用形式$$pointer[$i]列出所有元素。
对关联数组使用反斜线操作符的方法是一样的--把所有关联数组名换成引用$poniter。注意数组和简单变量（标量）的引用显示时均带有类型--array和scalar，哈希表（关联数组）和函数也一样，分别为hash和code。下面是哈希表的引用的例子。

#!/usr/bin/perl
1 #
2 # using associative array references
3 #
4 %month = (
5 '01', 'jan',
6 '02', 'feb',
7 '03', 'mar',
8 '04', 'apr',
9 '05', 'may',
10 '06', 'jun',
11 '07', 'jul',
12 '08', 'aug',
13 '09', 'sep',
14 '10', 'oct',
15 '11', 'nov',
16 '12', 'dec',
17 );
18
19 $pointer = \%month;
20
21 printf "\n address of hash = $pointer\n ";
22
23 #
24 # the following lines would be used to print out the
25 # contents of the associative array if %month was used.
26 #
27 # foreach $i (sort keys %month) {
28 # printf "\n $i $$pointer{$i} ";
29 # }
30
31 #
32 # the reference to the associative array via $pointer
33 #
34 foreach $i (sort keys %$pointer) {
35 printf "$i is $$pointer{$i} \n";
36 }
结果输出如下：

$ mth
address of hash = hash(0x806c52c)
01 is jan
02 is feb
03 is mar
04 is apr
05 is may
06 is jun
07 is jul
08 is aug
09 is sep
10 is oct
11 is nov
12 is dec

ICP备案编号:粤ICP备06052964号

www.sosof.com

选择显示字体大小

perl教学第十二篇 perl5中的引用之二

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准网站致力的规范

www.sosof.com

选择显示字体大小

perl教学 第十二篇 perl5中的引用之二

shouchang();

关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准 网站致力的规范

perl教学第十二篇 perl5中的引用之二

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

标准网站致力的规范