引用详解

一、定义引用有两种:

        1、用斜线“\”

        2、匿名引用

1、用反斜线的引用:数组、哈希、标量

  数组的引用

    my @array = (1,2,3);

    my $aref = \@array;

  哈希的引用:

    my %hash = ("wo"=>"women","ni"=>"nimen");

    my $href = \%hash;

  标量的引用:

    my $scalar = 1;

    my $scalarrrr= \$scalar;

2、使用匿名引用:

匿名数组引用:要用中括号:"[]"

        $aref = [1,"we","ig",undef,809];

匿名哈希引用:要用大括号:"{}"

        $href = {we=>1,ig=>2};

二、使用引用:

1、第一种方法:

定义了就该使用了,被引用的是什么类型的,显示的时候就需要加上什么样的符号,如数据要在前面加上@

my $scalar = 1 ;
my @array = (1, 2, 3) ;
my %hash = ('zdd' => 30, 'autumn' => 27) ; my $sref = \$scalar ; # scalar reference
my $aref = \@array ; # array reference
my $href = \%hash ; # hash reference # 方法一
print $$sref, "\n" ;  # 用$sref代替sref
print @$aref, "\n" ;   # 用$aref代替aref
print %$href, "\n" ;   # 用$href代替href 访问具体的值就都换成$$,注意是$$$$$$,重要的事情说好几遍
print $$aref[2], "\n" ;
print $$href{'zdd'}, "\n" ; 2、第二种方法 与普通变量的访问方法相比,假设变量原来的名字是name,则现在用{$name}来代替name。
@a     等同于    @{$aref}     #用其实很简单,就是很容易混淆        
reverse@a  等同于  reverse @{$aref}      #需要反复记忆,才能活学活用
$a[3]    等同于    ${$aref}[3]        #记不住的话可能看代码都会蒙圈

$a[3] =17;   等同于    ${$aref}[3] =17     #我现在也没记住呢

同理,哈希引用的使用方法如下。

%h      等同于    %{$href}         
keys%h    等同于      keys%{$href}  
    
$h{'red'}   等同于      ${$href}{'red'}   
  
$h{'red'} =17   等同于    ${$href}{'red'} =17  
3、第三种方法:不适用于标量
前两种很繁琐,第三种会很简洁,使用箭头符号:"->",一定注意这个箭头后面的括号是啥,数组要用中,哈希用大
$aref->[]     #数组解引用
$href->{}     #哈希解引用
$href->()     #子过程解引用
举个栗子:
$aref->[0] = 3;
$href->{name} = "autumn";    三、实战分析
看一下这些玩意到底是什么玩意 先看正常的数组是怎么定义和访问的: @a = ([1, 2, 3],[4, 5, 6],[7, 8, 9])
#定义一个二维数组
 #我们知道[1, 2, 3]定义了一个(1, 2, 3)的匿名引用,所以数组a实际上
 #包含三个元素,每个元素是一个引用,该引用指向一个数组,所以我们可以
 #用下面的方法来访问数组元素(注意,下标从0开始) 多维数组的另一个写法如下:
my $aref = [1, [2, 3], [4, 5, 6]] ;
print $aref->[0] , "\n" ;        #输出1
print $aref->[1][1], "\n" ;       #输出3
print $aref->[2][0], "\n" ;       #输出4

这两者的区别有以下几点:

  • 前者是真正的数组,所以定义变量是使用@,后者是指向匿名数组的引用,所以定义的时候使用$
  • 前者的数组元素是匿名数组,而外层数组则是实体数组,后者无论元素还是外层数组都是匿名数组
  • 前者可以用$a[x][y]的形式访问,而后者只能用解引用的方式访问,即$a->[x][y]的形式。

四、说一说引用的赋值

$aref1 = $aref2     #使得这两个东西,也就是$aref1和$aref2,指向同一个数组

蛋是,你现在想把$aref1指向的那个数组拷贝一份给$aref2的话,使用这种方法:

       $aref2 = [@{$aref1}];  #在中括号里面进行解引用,而中括号以解引用后的数组为内容

                     #生成了一个新的匿名数组,赋值给$aref2

注意:不能不加中括号,由于等号左边是标量,等号右边的数组会被解释为标量环境,

   所以最后$aref2得到的是数组元素个数,而不是元素本身

   但加上中括号就可以了,perl会知道这个是一个匿名数组的赋值

  $aref2 = @{$aref1};     #得到的会是元素个数,而不是数组本身

五、判断一个变量是否是引用
使用ref函数就可以,如果变量是引用就返回TRUE,否则为假。实际上他还会返回引用对象的类型,比如HASH或者ARRAY
    my $aref1 = [1,2,0];
    print ref #aref1;      #返回ARRAY
还可以这样用:
    if (ref $aref1) {
      print "true"."\n";    #返回true
} 六、判断两个引用是否指向一同个目标

可以用eq,这将以字符串的形式判断,也可以使用==

看下面就知道是不是男人,额,不是不是,就知道是怎么用的了

看下面:

my $aref1 = [1, 2, 0] ;            
my $aref2 = $aref1 ;                  
print $aref1, "\n" ;                
print $aref2, "\n" ;                  
                              
if ($aref1 eq $aref2) {
print "reference equal\n" ;
}
if($aref1 == $aref2) {
print "reference equal\n" ;
}

产生如下输出

ARRAY(0x248bec)
ARRAY(0x248bec)
reference equal (eq)
reference equal (==)

            


												

Perl语言--一些关于赋值、引用的东西的更多相关文章

  1. Perl语言编程(大骆驼)

    啰嗦几句 Perl的时代已经过去,现在年轻的同事们基本上都在用Python了.但个人认为单就生物信息文本处理而言,Perl语言是绝对够用的.最主要的是,前辈们搭建的流程大多数是Perl写的,因此,如果 ...

  2. Perl语言入门14-17

    ---------第十四章 字符串与排序------------------- index查找子字符串 my $stuff = "howdy world!"; my $where ...

  3. Perl语言

    Perl是高级.通用.直译式.动态的程序语言家族.最初设计者拉里·沃尔(Larry Wall)为了让在UNIX上进行报表处理的工作变得更方便,决定开发一个通用的脚本语言,而在1987年12月18日发表 ...

  4. input用法,永远等待,直到用户输入值赋值给一个东西。

    input用法,永远等待,直到用户输入值赋值给一个东西. n1 = input('请输入用户名:') n1 = input('请输入密码:') print(n1) print(n1)

  5. Perl语言——简单说明

    Perl语言——简单说明 一.简单说明 Perl语言全称:实用摘录与报表语言|病态折中式垃圾列表器.Perl名称并不是缩写词,而是个溯写字. Perl语言历史:Larry Wall(拉里·沃尔)20世 ...

  6. perl语言书籍教程推荐

    互动出版网计算机频道.为您推荐关于perl语言的书籍教程.包括perl push.perl chomp以及perl python等perl语言内容. perl语言书籍一.<Perl语言编程 第四 ...

  7. 边看MHA源码边学Perl语言之一开篇

    边看MHA源码边学Perl语言之一开篇 自我简介 先简单介绍一下自己,到目前为此我已经做了7年左右的JAVA和3年左右php开发与管理,做java时主要开发物流行业的相关软件,对台湾快递,国际快递,国 ...

  8. Perl语言入门

    Perl 是 Practical Extraction and Report Language 的缩写,可翻译为 "实用报表提取语言". Perl语法基础: (1)Perl程序由声 ...

  9. Perl语言入门: 斜线不是元字符,所以在不作为分隔符时不需要加上反斜线。

    Perl语言入门: 斜线不是元字符,所以在不作为分隔符时不需要加上反斜线.

随机推荐

  1. Objective-C分类 (category)和扩展(Extension) 的区别

    http://blog.csdn.net/yhawaii/article/details/6992094 http://blog.163.com/wangy_0223/blog/static/4501 ...

  2. 团队作业-Beta冲刺第一天

    这个作业属于哪个课程 <https://edu.cnblogs.com/campus/xnsy/SoftwareEngineeringClass1> 这个作业要求在哪里 <https ...

  3. 获得Java中System对应一些属性值

    public static void main(String[] args){ System.out.println("Java运行时环境版本:\n"+System.getProp ...

  4. 计算机应用 office系列 常用术语英文

    首先,Excel 办公室系列软件——Office series Software 微软——Microsoftware 电子表格 Excel 第一行称为标题栏——title bar 第二行称为菜单栏—— ...

  5. ios runloop学习

    今天突然才之间才意识到NSTimer这样的运行方式,是在多线程中实现的循环还是在主线程中去实现的呢.当然不可能是在主线程中的while那么简单,那样什么都干不了,简单看了下NSTimer是以同步方式运 ...

  6. noip_最后一遍_3-数据结构

    noip基础数据结构太多了又太捞了 所以也就那么几个了 单调队列滑动窗口 #include<bits/stdc++.h> using namespace std; #define maxn ...

  7. [LUOGU] P2245 星际导航

    题目描述 sideman做好了回到Gliese 星球的硬件准备,但是sideman的导航系统还没有完全设计好.为了方便起见,我们可以认为宇宙是一张有N 个顶点和M 条边的带权无向图,顶点表示各个星系, ...

  8. VS第一天(一堆错误的错误示范)

    自学VS第一天 (目标用vs做个不low的简历) 学习视频 https://www.bilibili.com/video/av48489320/?p=1 代码 写了一天的代码,自己理解的内容在注释里 ...

  9. 细说unittest-2

    一.unittest模块官方文档: https://docs.python.org/3/library/unittest.html 二.一张图看懂unittest: 三.Unittest主要方法属性: ...

  10. Python的第3堂课

    20181119笔记 一.内存管理相关 ①Cpython解释器的垃圾回收机制 什么是垃圾:当一个值没有被绑定任何变量名(即该值的引用计数为零时),该值就是垃圾. 垃圾回收是收回值占用的内存空间. 引用 ...