Perl文件句柄引用】的更多相关文章

目前还没介绍Perl的面向对象,所以这节内容除了几个注意点,没什么可讲的. 以前经常使用大写字母的句柄方式(即所谓的裸字文件句柄,bareword filehandle),现在可以考虑转向使用变量文件句柄的形式,因为只有使用变量句柄的方式,才能创建文件句柄引用. open DATA,">>","/tmp/a.log" or die "can't open file: $!"; open my $data_fh ,">&…
perl 返回文件句柄的2种方式 1.使用 \* #!/usr/bin/perl use strict; sub openfile() { my $path=shift; open(FILE,"$path") or die "Can't open $path $!\n "; return \*FILE; } my $temp=&openfile("config"); my @file=<$temp>; print @file;…
文件句柄相关变量 对应的官方手册:http://perldoc.perl.org/perlvar.html#Variables-related-to-filehandles 默认情况下: $/:输入行的分隔符以换行符为单位,可以使用$/指定 $\:print输出行的分隔符为undef,可以使用$\指定,例如指定换行符"\n" $,:print输出列表(也就是每个逗号分隔的部分)的字段分隔符为undef,可以使用$,指定,例如指定空格 $":默认在双引号上下文中,数组被输出的时…
使用引用可以指向数据对象,这似乎很简单. @name1=qw(longshuai wugui); @name2=qw(xiaofang tuner); $ref_name=\@name1; push @name2,$ref_name; print "@name2"; # 输出:xiaofang tuner ARRAY(0xNAME1) 但如果想通过引用的方式取出数据对象的值呢,就像上面的print语句中,想要输出@name2中包含的@name1的元素,而不是它的地址空间.这需要解除引用…
子程序也有引用,也有匿名子程序.假设你已经具备了数组.hash的引用知识,所以这里简单介绍一下. $ref_sub = \&mysub; # 子程序引用,&符号必须不能少 &{$ref_sub}(ARGS) # 解除子程序引用,传递参数ARGS &$ref_sub(ARGS) # 解除子程序引用 $ref_sub->(ARGS) # 解除子程序引用 $ref_sub->() # 传递空参数 sub {...}; # 定义匿名子程序,sub后面没有名称 $ref_…
正则表达式两篇: 基础正则 Perl正则 本文是对Perl正则的一点扩展,主要内容是使用qr//创建正则对象,以及一些其它的技巧. qr//创建正则对象 因为可以在正则模式中使用变量替换,所以我们可以将正则中的一部分表达式事先保存在变量中.例如: $str="hello worlds gaoxiaofang"; $pattern="w.*d"; $str =~ /$pattern/; print "$&\n"; 但是,这样缺陷很大,在保存…
http://bbs.chinaunix.net/forum-viewthread-tid-570031.html…
0.Perl书籍推荐 Perl书籍下载 密码:kkqx 下面是一些我学习Perl过程中读过完整的或部分章节的觉得好的书. 入门级别1:<Perl语言入门>即小骆驼 入门级别2:<Intermediate Perl>即羊驼 入门后复习:<beginning Perl> 系统性学习和进阶:<Pro Perl>(目前在读,是我整理.完善Perl的最佳书籍) Perl编码技巧:<Perl高效编程>(英文版Effective Perl Programmin…
open函数除了> >> <这三种最基本的文件句柄模式,还支持更丰富的操作模式,例如管道.其实bash shell支持的重定向模式,perl都支持,即使是2>&1这种高级重定向模式,perl也有对应的模式. 打开管道文件句柄 perl程序内部也支持管道,以便和操作系统进行交互.例如,将perl的输出在程序内部就输出给操作系统的命令,或者将操作系统的命令执行结果输出给perl程序内部.所以,perl有2种管道模式:句柄到管道.管道到句柄. 例如,将perl print语…
在perl中只有3种基本的数据结构:标量.数组.hash.变量可以是数值,可以是字符串. 这三种基本数据结构的数据存储方式如下: 但是,仅仅由这3种基本结构,就可以构造出更复杂的数据结构,例如hash中用数组做value,数组中用hash做元素. 但是,perl对于底层的一些数据存储,很多时候对这些数据是直接拷贝存储的.而有些时候是没必要去拷贝数据的,通过引用,可以避免拷贝操作,哪里需要数据,用数据对象的引用即可,也就是插一个"指针"的事. 如何表示数组和hash的引用 引用就像是指针…