perl中的引用

引用的基本概念:

 


 

所谓引用,它只是指向一组数据的指针,并不包含实际数据的本身。该引用通常存放在另一个标量变量中。

若要创建对某个既定变量的引用,可以在该变量的前面加上一个反斜杠

例如:

    my $test="it is a reference";
    my $ref=/$test;


如果需要输出引用,则需要$$,注意如果直接$ref,输出的实际相当于c语言中的地址:

   print $$ref."---------";

 

可以通过直接修改$$ref的值来修改$test,即引用所指向的标量。

 


 

对数组创建引用:

对数组创建引用如下:

my @arr=('2','34','535d','345');
my $refArr=/@arr;
print $$refArr[0]."/n";

my @test=@$refArr[2,3];
print scalar(@test)."length...";

其中  ${$refArr}[0]于$$refArr[0]等价

如果需要输出所有的值则可以

foreach $element(@{$refArr})
{
print "element".$element."/n";
}


 

对hash结构的引用:

my $herf =/%hashtest;

$ $ h r e f { k e y } 访问% h a s h中的一个关键字,也可以是$ { $ h r e f } { k e y }
% $ h r e f 访问整个哈希结构,也可以是% { $ h r e f }

 

匿名存储:

   %hash={'phone'=>'bell'};花括号( { })将哈希结构括起来,返回对它的引用,但实际上并没有创建新的变量。

 

 


perl中的列表:

    my @list_of_lists=([qw(er 34 sdd)],[qw(a d g c)]);
   
    print "array lengh".scalar(@list_of_lists)."/n";# 2
   
    print "inner array length".$#list_of_lists."/n";#1,下标表示法
   
    print "get the inner length".scalar(@{$list_of_lists[1]})."/n";#4
   
    #遍历列表
    foreach my $outer(@list_of_lists)
    {

        foreach my $inner(@{$outer})
        {
           
            print "$inner----";
            }
            print "/n";
        }

 

 

 

阅读更多
个人分类: perl语言
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭