Perl引用

引用就是C语言中的指针，perl引用是一个标量类型可以指向变量、数组、哈希表（也叫关联数组）甚至子程序，可以应用在程序的任何地方。

在变量前面加一个\就得到了这个变量的一个引用

#！usr/bin/perl

$a=100; 

$a_=\$a;  #标量的yinyong

@arr=(1,2,3);

$arr_=\$arr; #数组的yinyong

%h=(key1=>'呵呵',key2=>'黑黑');  #哈希的引用

$h_=\%h;

#打印标量

print "a=$$a_\n";  #输出100

print "arr:\n";

#打印数组

foreach $item (@arr)

{

    print "$item\t";

}

#打印哈希

print "h:\n";

print "$$h_{'key1'}\n";  #打印"呵呵"

print "$$h_{'key2'}\n";  #"打印黑黑"

sub Func{print "123\n";}

#创建函数的引用

$func=\&Func;

#通过引用调用函数,打印123

&$func;

巴特西

Perl引用

最新文章

热门文章