14-Perl 引用
1.Perl 引用
引用就是指针。
Perl 引用是一个标量类型,可以指向变量、数组、哈希表(也叫关联数组)甚至子程序,可以应用在程序的任何地方。
2.创建引用
定义变量的时候,在变量名前面加个\,就得到了这个变量的一个引用,比如:
$scalarref = \$foo; # 标量变量引用
$arrayref = \@ARGV; # 列表的引用
$hashref = \%ENV; # 哈希的引用
$coderef = \&handler; # 子过程引用
$globref = \*foo; # GLOB句柄引用
2.1 在数组中我们可以用匿名数组引用,使用 [] 定义:
$aref= [ 1,"foo",undef,13 ];
2.2 匿名数组的元素仍然可以是匿名数组,所以我们可以用这种方法构造数组的数组,可以构造任意维度的数组。
my $aref = [
[1, 2, 3],
[4, 5, 6],
[7, 8, 9],
]
2.3 在哈希中我们可以用匿名哈希引用,使用 {} 定义:
$href= { APR =>4, AUG =>8 };
2.4我们也可以创建一个没有子程序名的匿名子程序引用:
$coderef = sub { print "abc!\n" };
3.取消引用(获取引用指向存储单元的内容)
取消引用可以根据不同的类型使用 $, @ 或 % 来取消。
实例
#!/usr/bin/perl
$var = 10;
$r = \$var; # $r 引用 $var 标量
print "$var 为 : ", $$r, "\n"; # 输出本地存储的 $r 的变量值
@var = (1, 2, 3);
$r = \@var; # $r 引用 @var 数组
print "@var 为: ", @$r, "\n"; # 输出本地存储的 $r 的变量值
%var = ('key1' => 10, 'key2' => 20);
$r = \%var; # $r 引用 %var 数组
print "%var 为 : ", %$r, "\n"; # 输出本地存储的 $r 的变量值
执行以上实例执行结果为:
10 为 : 10
1 2 3 为: 123
%var 为 : key110key220
如果你不能确定变量类型,你可以使用 ref 来判断,返回值列表如下,如果没有以下的值返回 false:
引用的类型包括:SCALAR、ARRAY、HASH、CODE、GLOB、REF
实例如下:
#!/usr/bin/perl
$var = 10;
$r = \$var;
print "r 的引用类型 : ", ref($r), "\n";
@var = (1, 2, 3);
$r = \@var;
print "r 的引用类型 : ", ref($r), "\n";
%var = ('key1' => 10, 'key2' => 20);
$r = \%var;
print "r 的引用类型 : ", ref($r), "\n";
执行以上实例执行结果为:
r 的引用类型 : SCALAR
r 的引用类型 : ARRAY
r 的引用类型 : HASH
4.循环引用
循环引用在两个引用相互包含时出现(引用存储的值仍是一个引用)。你需要小心使用,不然会导致内存泄露。
实例
#!/usr/bin/perl
my $foo = 100;
$foo = \$foo;
print "Value of foo is : ", $$foo, "\n";
执行以上实例执行结果为:
Value of foo is : REF(0x9aae38)
5.引用函数
函数引用格式: \&
调用引用函数格式: & + 创建的引用名。
实例
#!/usr/bin/perl
# 函数定义
sub PrintHash{
my (%hash) = @_;
foreach $item (%hash){
print "元素 : $item\n";
}
}
%hash = ('name' => 'abc', 'age' => 3);
# 创建函数的引用
$cref = \&PrintHash;
# 使用引用调用函数
&$cref(%hash);
执行以上实例执行结果为:
元素 : age
元素 : 3
元素 : name
元素 : abc
14-Perl 引用的更多相关文章
- Perl 引用:引用就是指针,Perl 引用是一个标量类型可以指向变量、数组、哈希表(也叫关联数组)甚至子程序。
Perl 引用引用就是指针,Perl 引用是一个标量类型可以指向变量.数组.哈希表(也叫关联数组)甚至子程序,可以应用在程序的任何地方. 1.创建引用1.使用斜线\定义变量的时候,在变量名前面加个\, ...
- perl 引用(数组和hash引用) --- perlreftut - Mark 的一个简单的'引用'教程 ---Understand References Today. --Mark Jason Dominus, Plover Systems (mjd-perl-ref+@plover.com)
https://blog.csdn.net/fangwei1235/article/details/8570886 首页 博客 学院 下载 论坛 APP 问答 商城 活动 VIP会员 招聘 ITeye ...
- Perl引用
引用就是C语言中的指针,perl引用是一个标量类型可以指向变量.数组.哈希表(也叫关联数组)甚至子程序,可以应用在程序的任何地方. 在变量前面加一个\就得到了这个变量的一个引用 #!usr/bin/p ...
- perl 引用(一)
1. 普通变量引用 variable reference 引用就好比C语言的指针,引用变量存储被引用变量的地址.赋值时注意要在变量前加上 \;使用时要多加一个 $ . 当然,引用也可以成为简单变量,可 ...
- Perl 引用与匿名数组
写这篇是因为工作遇到一个需要使用列表作为hash的值的问题,这在Python中是非常简单而轻松的事,如下面这段python程序. def add_to_index(index, keyword, ur ...
- Perl引用入门
在perl中只有3种基本的数据结构:标量.数组.hash.变量可以是数值,可以是字符串. 这三种基本数据结构的数据存储方式如下: 但是,仅仅由这3种基本结构,就可以构造出更复杂的数据结构,例如hash ...
- perl 引用
数组的数组 $a = [ [1, 2, 3], [4, 5, 6], [7, 8, 9] ] 哈希的哈希 my $student_properties_of = { 'zdd' => { 'ag ...
- [Perl系列—] 2. Perl 中的引用使用方法
Perl 中的引用,为什么要使用引用? 对于熟悉C语言的开发人员来说, 指针这个概念一定不陌生. Perl 的引用就是指针,能够指向变量.数组.哈希表甚至子程序. Perl5中的两种Perl引用类型为 ...
- Perl系列文章
0.Perl书籍推荐 Perl书籍下载 密码:kkqx 下面是一些我学习Perl过程中读过完整的或部分章节的觉得好的书. 入门级别1:<Perl语言入门>即小骆驼 入门级别2:<In ...
- Perl 正则表达式语法
1. 概要 Perl正则表达式是Boost.regex 默认行为,也可以将perl传入basic_regex 构造. boost::regex e1(my_expression); boost::r ...
随机推荐
- 预处理、const、static与sizeof-内联函数与宏有什么区别
1:二者的区别如下: (1)内联函数在编译时展开,宏在预编译时展开. (2)在编译的时候,内联函数可以直接被镶嵌到目标代码中,而宏只是一个简单的文本替换. (3)内联函数可以完成诸如类型检测.语句是否 ...
- debian、ubuntu安装mysql指定版本
因为在使用docker时,Debian中的mysql已变为mariadb,然后总是会出现一些错误,所以故想在debian上安装mysql5.7版本 1.访问https://dev.mysql.com/ ...
- 空指针/0/NULL
空指针/0/NULL 空指针是一个被赋值为0的指针,在没有被具体初始化之前,其值为0. NULL 是一个标准规定的宏定义,用来表示空指针常量. #define NULL 0 或者 #define ...
- 如何配置git send-email相关的邮箱信息?
关键是配置smtpserver,请参考此处
- JPA,Hibernate,Spring Data JPA之间的关系
什么么是JPA? 全称Java Persistence API(JAVA对象持久化API),可以通过注解或者XML描述[对象-关系表]之间的映射关系,并将实体对象持久化到数据库中. 为我们提供了: 1 ...
- 初识消息中间件之 ==> ActiveMQ
一.消息队列概述 消息(Message)是指在应用间传送的数据.消息可以非常简单,比如只包含文本字符串,也可以更复杂,可能包含嵌入对象. 消息队列(Message Queue)是一种应用间的通信方式, ...
- Vim/gVim 中文显示为乱码的解决办法
打开vimrc文件,在vim的安装目录下可以找到该文件,或在windows下是在vim/gvim下输入:edit $vim/_vimrc. 在文件的末尾添加一句 "set fileencod ...
- mkvirtualenv管理python版本
centos7安装pip 安装pip yum -y install epel-release yum -y install python2-pip 安装virtualenvwrapper pip in ...
- coding.net------WEBHOOK自动部署实战
使用WebHook自动部署项目今天在laravist.com看到了这个 Webhook 自动部署Git项目 这个教学视频,以前自己也想做这样做一个利用Git WebHook的自动化部署,但总是不成功, ...
- Python3 Selenium自动化web测试 ==>FAQ:隐式等待和sleep区别
FAQ: 情景1: 设置等待时间 A方法:sleep 线程休眠,但只单次有效,其他操作需要加载等待时间,需要再次添加time.sleep() B方法:implicitly_wait() from se ...