perl 引用（一）

Perl 引用：引用就是指针，Perl 引用是一个标量类型可以指向变量、数组、哈希表（也叫关联数组）甚至子程序。

Perl 引用引用就是指针,Perl 引用是一个标量类型可以指向变量.数组.哈希表(也叫关联数组)甚至子程序,可以应用在程序的任何地方. 1.创建引用1.使用斜线\定义变量的时候,在变量名前面加个\,就得到了这个变量的一个引用.比如:# 数组的引用my@array= (1,2,3) ;my$aref=\@array ; #哈希的引用my%hash= ("name"=>"zdd","age"=>30,"gender"…

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 GitChat 图文课写博客消息登录注册转 perl 引用(数组和hash引用) 2013年02月05日 10:23:24 willorfang 阅读数 3396 转自:http://www.chinaunix.net/old_jh/25/504623.html 为推广perl尽一点力…

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";…

1. 普通变量引用 variable reference 引用就好比C语言的指针,引用变量存储被引用变量的地址.赋值时注意要在变量前加上 \;使用时要多加一个 $ . 当然,引用也可以成为简单变量,可以使用引用的引用,使用时要记得多加一个$.引用也可以互相赋值 #!/usr/bin/perl -w my $variable="this is a reference test\n"; my $refv=\$variable; my $refr=\$refv; print "th…

Perl 引用与匿名数组

写这篇是因为工作遇到一个需要使用列表作为hash的值的问题,这在Python中是非常简单而轻松的事,如下面这段python程序. def add_to_index(index, keyword, url): if keyword in index: index[keyword].append(url) else: index[keyword] = [url] 但在Perl中怎么办呢?答案是使用引用,同样轻松搞定. 创建引用 1.使用\操作符 #标量引用 ; my$sref=\$scalar ;…

Perl引用入门

在perl中只有3种基本的数据结构:标量.数组.hash.变量可以是数值,可以是字符串. 这三种基本数据结构的数据存储方式如下: 但是,仅仅由这3种基本结构,就可以构造出更复杂的数据结构,例如hash中用数组做value,数组中用hash做元素. 但是,perl对于底层的一些数据存储,很多时候对这些数据是直接拷贝存储的.而有些时候是没必要去拷贝数据的,通过引用,可以避免拷贝操作,哪里需要数据,用数据对象的引用即可,也就是插一个"指针"的事. 如何表示数组和hash的引用引用就像是指针…

perl 引用

数组的数组 $a = [ [1, 2, 3], [4, 5, 6], [7, 8, 9] ] 哈希的哈希 my $student_properties_of = { 'zdd' => { 'age' => 30, 'hight' => 170, ', }, 'autumn' => { 'age' => 27, 'hight' => 165, ', } } ;…

[Perl系列—] 2. Perl 中的引用使用方法

Perl 中的引用,为什么要使用引用? 对于熟悉C语言的开发人员来说, 指针这个概念一定不陌生. Perl 的引用就是指针,能够指向变量.数组.哈希表甚至子程序. Perl5中的两种Perl引用类型为硬Perl引用和符号Perl引用.符号Perl引用含有变量的名字,它对执行时创建变量名并定位非常实用,基本上,符号Perl引用就象文件名称或UNIX系统中的软链接.而硬Perl引用则象文件系统中的硬链接. Perl4仅仅同意符号Perl引用,给使用造成一些困难.比如,仅仅同意通过名字对包的符号名哈希…

Perl系列文章

0.Perl书籍推荐 Perl书籍下载密码:kkqx 下面是一些我学习Perl过程中读过完整的或部分章节的觉得好的书. 入门级别1:<Perl语言入门>即小骆驼入门级别2:<Intermediate Perl>即羊驼入门后复习:<beginning Perl> 系统性学习和进阶:<Pro Perl>(目前在读,是我整理.完善Perl的最佳书籍) Perl编码技巧:<Perl高效编程>(英文版Effective Perl Programmin…

读写生信流程必备的 Perl 语法

最早就是写Perl的,后来来到公司转Python,现在又要负责流程了,开始重拾Perl,当然是借鉴别人现有的语法,我再重新组合. 基本语法就不介绍了,参照我之前文章 Perl 模块 use strict; use File::Path; [Perl]Path::File 目录的创建和删除内置模块,导入之后就可以随时创建和删除目录了,mkpath("LZX"):rmtree("LZX"): use Getopt::Long; perl 中的有关控制参数的…

菜鸟教程perl总结

数据类型有: 标量$, 数组@,哈希% 数组声明 : @hits = (25, 30, 40); 或者 @sites = qw/google taobao runoob/; 数组操作 pop, push, shift, unshif, splice(@ARRAY,OFFSET,LENGTH,LIST), join, sort 合并数组, @numbers = (@odd, @even); 从列表中选择元素 @list = (5,4,3,2,1)[1..3]; 哈希: %data…

14-Perl 引用

1.Perl 引用引用就是指针.Perl 引用是一个标量类型,可以指向变量.数组.哈希表(也叫关联数组)甚至子程序,可以应用在程序的任何地方.2.创建引用定义变量的时候,在变量名前面加个\,就得到了这个变量的一个引用,比如:$scalarref = \$foo; # 标量变量引用$arrayref = \@ARGV; # 列表的引用$hashref = \%ENV; # 哈希的引用$coderef = \&handler; # 子过程引用$globref = \*foo; # GLOB句柄引用2…

Perl 笔记

目录 Perl 学习常用记录基础 1. 运行perl 2. 字符串 3. 变量 4. 条件 5. 循环 6. 运算符 7. 时间日期 8. 子程序(函数) 9. 引用 10. 格式化输出 11. 文件操作 12. 目录操作 13. 错误处理 14. 特殊变量 15. 正则表达式 Perl 学习常用记录 chop与chomp的区别 chop()函数,只是去除最后一个字符 chomp()函数,就要首先判断最后一个字符是不是为"\n",他才去除. 变量初值对于没有赋初值的scaler…

perl 对象 bless 引用

[root@dr-mysql01 ~]# cat aa.pl use LWP::UserAgent; use Data::Dumper; my $ua = LWP::UserAgent->new; $phone=$ARGV[0]; $cc=$ARGV[1]; $ua->timeout(10); $ua->env_proxy; $ua->agent("Mozilla/8.0"); $host = "xxxxxxxx"; my $response…

perl 回调必须是函数引用

[root@wx03 lib]# cat a1.pl use AE; use AnyEvent; ##定义watch my $t = AnyEvent->timer( after => 0, interval => 5, cb => sub {print test."\n";} ); ##不要再每秒打印时间 ##undef $t; my $cv = AnyEvent->condvar; $cv->recv; [root@wx03 lib]# perl…

perl 函数回调引用$client->run(sub {$client->sync});

匿名函数引用: [root@wx03 wx]# perl a1.pl CODE(0x2077b30) test [root@wx03 wx]# cat a1.pl $ref= sub {return test."\n"}; print $ref; print "\n"; print &$ref; [root@wx03 wx]# perl a1.pl CODE(0x21a2b30) test my $eventloop=$client->run(sub…

perl 为什么要用引用来做对象呢？

perl 为什么要用引用来做对象呢? 因为一个重要的原因是 my 引用脱离作用域,外部仍旧生效…

【转载】Perl中的引用

为什么使用引用? 在perl4中,hash表中的value字段只能是scalar,而不能是list,这对于有些情况是很不方便的,比如有下面的数据: Chicago, USAFrankfurt, GermanyBerlin, GermanyWashington, USAHelsinki, FinlandNew York, USA 我们想要按国家将城市分类,每个国家后面对应城市列表,如果用perl4来做,必须将城市列表组合成字符串才行,如果用perl5就可以用引用来做,有了引用,就可以构造复杂的ha…

Perl解除引用：从引用还原到数据对象

使用引用可以指向数据对象,这似乎很简单. @name1=qw(longshuai wugui); @name2=qw(xiaofang tuner); $ref_name=\@name1; push @name2,$ref_name; print "@name2"; # 输出:xiaofang tuner ARRAY(0xNAME1) 但如果想通过引用的方式取出数据对象的值呢,就像上面的print语句中,想要输出@name2中包含的@name1的元素,而不是它的地址空间.这需要解除引用…

Perl子程序引用和匿名子程序

子程序也有引用,也有匿名子程序.假设你已经具备了数组.hash的引用知识,所以这里简单介绍一下. $ref_sub = \&mysub; # 子程序引用,&符号必须不能少 &{$ref_sub}(ARGS) # 解除子程序引用,传递参数ARGS &$ref_sub(ARGS) # 解除子程序引用 $ref_sub->(ARGS) # 解除子程序引用 $ref_sub->() # 传递空参数 sub {...}; # 定义匿名子程序,sub后面没有名称 $ref_…

Perl文件句柄引用

目前还没介绍Perl的面向对象,所以这节内容除了几个注意点,没什么可讲的. 以前经常使用大写字母的句柄方式(即所谓的裸字文件句柄,bareword filehandle),现在可以考虑转向使用变量文件句柄的形式,因为只有使用变量句柄的方式,才能创建文件句柄引用. open DATA,">>","/tmp/a.log" or die "can't open file: $!"; open my $data_fh ,">&…

Perl正则表达式引用

正则表达式两篇: 基础正则 Perl正则本文是对Perl正则的一点扩展,主要内容是使用qr//创建正则对象,以及一些其它的技巧. qr//创建正则对象因为可以在正则模式中使用变量替换,所以我们可以将正则中的一部分表达式事先保存在变量中.例如: $str="hello worlds gaoxiaofang"; $pattern="w.*d"; $str =~ /$pattern/; print "$&\n"; 但是,这样缺陷很大,在保存…

perl 中的引用

perl 语言中的引用共分为两类: 声明引用时只需要在对象的前面加上反斜杠第一列是数组的引用: 代码示例: , , ); my $array_ref = \@array; 第二种是哈希的引用代码示例: , , , ); my $hash_ref = \@hash; 通过引用去访问对应的值,通过 -> 操作符数组的引用, 通过 [ ] 中括号加上对应的下标,代码示例: , , ); my $array_ref = \@array; ]; 哈希的引用,通过{} 大括号加上对应的key,代码…

perl的匿名引用

perl中列表不能嵌套,只能通过引用的方式构建复杂的结构.引用其实就是c中的指针,只不过perl中对指针,也就是一个地址的声明和取值有自己的一套方法. 1.先复习普通标量的引用方法: [vagrant@bio ~]$ cat t1.pl ; use warnings; ; my $p=\$a; say $a; say $p; say ${$p}; say $$p; say "=========="; ,,); my $pArr=\@arr; say @arr; say $pArr; s…

6、perl创建模块（Exporter）及路径引用嵌套查询模块

参考博客:http://www.cnblogs.com/xudongliang/tag/perl/ 1.perl 模块的创建以及制定perl 模块的路径 (1)创建一个Myfun.pm模块. #/usr/bin/perl package Myfun; use warnings; use strict; sub sum($$){ my ($a,$b)=@_; my $sum = $a+$b; return $sum; } 1; (2)指定perl模块目录,运用Myfun.pm模块, 比如 Myfu…

【perl 引用（一）】的更多相关文章