位置: 编程技术 - 正文

perl引用的相关知识分享(perl中qw)

编辑:rootadmin

为何使用引用?

在perl4中,hash表中的value字段只能是scalar,而不能是list,这对于有些情况是很不方便的,比如有下面的数据:Chicago, USAFrankfurt, GermanyBerlin, GermanyWashington, USAHelsinki, FinlandNew York, USA

我们想要按国家将城市分类,每个国家后面对应城市列表,如果用perl4来做,必须将城市列表组合成字符串才行,如果用perl5就可以用引用来做,有了引用,就可以构造复杂的hash结构,就可以用列表作为hash的值了。

如何定义引用

方法一 使用斜线

定义变量的时候,在变量名前面加个,就得到了这个变量的一个引用,比如

方法二 匿名引用

方法一不是很常用,最常用的还是匿名引用,方法如下匿名数组引用-用[]定义$aref= [ 1,"foo",undef, ];

匿名数组的元素仍然可以是匿名数组,所以我们可以用这种方法构造数组的数组,可以构造任意维度的数组。my $aref = [ [1, 2, 3], [4, 5, 6], [7, 8, 9],]

匿名哈希引用-用{}定义

$href= { APR =>4, AUG =>8 };

使用引用

定义了引用之后,可以使用不同的方法来访问引用,这里主要有三种方法。记忆这三种方法有个诀窍,将他们与普通的变量访问作比较即可。

方法一

与普通变量的访问方法相比,假设原来的变量名是name,则此方法在所有name出现的地方用$name代替,如下:

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

注意:当{}内部是$var的形式时,{}是可以省略的,也就是说@{$aref}等价于@$aref,不过初学最好养成使用{}的习惯。

方法三前两种方法比较繁琐,这种很简洁,就是使用箭头符号->

解引用总结我们知道[1, 2, 3]定义了一个(1, 2, 3)的匿名引用,所以数组a实际上包含三个元素,每个元素是一个引用,该引用指向一个数组,所以我们可以用下面的方法来访问数组元素(注意,下标从0开始)

$a[1][2]表示第二行第三列元素6,也可以写成$a[1]->[2],不过很少有人这么写。还可以写成${$a[1]}[2],几乎没人这么写!

多维数组的另一个写法如下:

这两者的区别有以下几点:1)、前者是真正的数组,所以定义变量是使用@,后者是指向匿名数组的引用,所以定义的时候使用$2)、前者的数组元素是匿名数组,而外层数组则是实体数组,后者无论元素还是外层数组都是匿名数组3)、前者可以用$a[x][y]的形式访问,而后者只能用解引用的方式访问,即$a->[x][y]的形式。

数组的哈希,哈希的数组,哈希的哈希

也就是哈希表中的每个元素也是一个哈希表,比如一个学生集合组成的哈希,其key是学生名字(唯一),其值是每个学生的属性,比如年龄,身高及学号等。

引用的赋值

$aref2 = $aref1; 将使得$aref2和$aref1指向同一个数组,如果想将$aref1指向的数组拷贝一份给$aref2的话,使用下面的方法,[]里面对数组进行解引用,而[]以解引用后的数组为内容生成了一个新的匿名数组,又赋值给$aref2。$aref2 = [@{$aref1}];

注意:不能使用下面的形式,外层的[]是不可缺少的。由于=左边是标量,所以右边的数组会被解释为标量环境,得到的是数组元素个数,而不是元素本身。但是如果加上[]就可以了,这样perl知道这是一个匿名数组的赋值。$aref2 = @{$aref1};

判断一个变量是否是引用

使用ref函数即可,如果变量是引用则返回真,否则返回假。实际上它更智能,它会返回引用对应的类型,比如HASH或者ARRAY。

判断两个引用是否指向同一个目标

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

产生如下输出:ARRAY(0xbec)ARRAY(0xbec)reference equal (eq)reference equal (==)

推荐整理分享perl引用的相关知识分享(perl中qw),希望有所帮助,仅作参考,欢迎阅读内容。

perl引用的相关知识分享(perl中qw)

文章相关热门搜索词:perl语句,perl中qw,perl调用函数,perl调用函数,perl index用法,perl中index,perl引用与解引用,perl 引用,内容如对您有帮助,希望把文章链接给更多的朋友!

perl 调试命令的相关知识小结 缺省的Perl调试器就是perl解释器本身,另外还有图形界面的调试器。由于在开发程序时一般都使用telnet访问服务器,因此本文主要为大家介绍下缺省的命

perl use 命令中指定路径的方法 注意:uselib后面只能跟directory,不能跟file。uselib'c:perllibxml';useparser注解:parse.pm是目录c:perllibxml下的一个模块。

perl的cgi高级编程介绍 一CGI.pm中的方法(routines)调用1.CGI.pm实现了两种使用方法,分别是面向对象的方式和传统的perlmodule方法的方式。面向对象的方式:#!/usr/local/bin/perl-wuseC

标签: perl中qw

本文链接地址:https://www.jiuchutong.com/biancheng/372500.html 转载请保留说明!

上一篇:perl的INC设置分析(perl-v)

下一篇:perl 调试命令的相关知识小结(调用perl脚本)

  • 海关完税价格是什么
  • 个人所得税年度汇算清缴怎么操作
  • 材料采购成本是主营业务成本吗
  • 停车费增值税税率
  • 预期信用损失率计算公式
  • 会计一般什么时候考试
  • 预提费用在资产负债表里写在哪
  • 税务异常有哪些类型
  • 增值税专用发票是干什么用的
  • 飞机发票和行程单可以一起开吗
  • 8000块电脑大概能跑多少分
  • 企业捐赠不动产 会计分录
  • 固定资产按月折旧了,还能一次折旧么
  • 非广告公司可以开广告费发票吗?
  • 多缴纳的附加税怎么退
  • 收到上个月支付的短信
  • 展会门票费计入什么科目
  • 提前报废资产损失税前扣除
  • 小规模纳税人贷款利息收入增值税税率
  • 土地使用权与房屋所有权不一致
  • 自然灾害造成的存货净损失计入什么科目
  • 处置其他权益工具投资会影响当期损益吗
  • 工资发错了,多发了怎么办
  • 一次性优惠税率表
  • 个人垫付汽车修理怎么办
  • 贷款利率计算公式表格
  • 已经抵扣增值税专用发票对方要换票怎么办
  • word要打印保存在哪个类型
  • php最新动态
  • 一个更简单的无限级分类菜单代码
  • 广告行业物料
  • staruml教程
  • yolov3训练
  • 电子承兑汇票支付信用查询是什么意思
  • 应付帐款借方余额怎么算
  • 会计账目和账户的区别
  • openresty php
  • 股东分红的会计处理方法
  • java面试题及答案下载
  • php 正则表达式教程
  • 一次开票分期确认怎么弄
  • lpstat命令
  • 红票申请单怎么开
  • 最新税法规定小车折旧年限
  • 违约拒绝赔偿怎么办
  • 坏账准备的应提数
  • 普通发票和增值税发票的税率
  • 汇票没到期如何兑现
  • 个体工商户可以抵扣进项吗
  • sqlserver解密工具
  • sqlserver数据库指定目录
  • 什么时候库存商品在贷方
  • 盈余公积年初和年末没有变化
  • 注册公司时的注册资金认缴是什么意思
  • 车辆通行费
  • 销售边角料的增值税率
  • 保证金159001收益如何计算
  • 装修付款分期
  • 在建工程项目包括
  • 供应合同转让协议
  • 银行现金支票作废处理步骤
  • 加盟费收入需要纳税吗
  • 如何开展服务
  • 公用事业费属于什么会计科目
  • 关联企业有什么好处
  • 债权人接受债务人土地抵押,还会被其他债权人查封?
  • MySql 5.6.14 Win32位免安装解压缩版配置教程
  • Win2008 R2 mysql 5.5 zip格式mysql 安装与配置
  • xp系统怎么连接电脑
  • docker 自启动
  • 如何查看winxp系统的运行内存
  • 苹果mac安装win10系统
  • centos ll
  • win7无线网络开关在哪里
  • opera installer
  • perl读取文件内容逐行处理
  • 利用用英文怎么翻译
  • 建筑劳务个人所得税申报
  • 贵州省微企补助政策
  • 微信申报缴税流程
  • 免责声明:网站部分图片文字素材来源于网络,如有侵权,请及时告知,我们会第一时间删除,谢谢! 邮箱:opceo@qq.com

    鄂ICP备2023003026号

    网站地图: 企业信息 工商信息 财税知识 网络常识 编程技术

    友情链接: 武汉网站建设