Perl中的特殊符号介绍
$_
俗称perl的老地方，当你的程序中未告知使用哪个参数或者变量时，perl就会自动使用$_中的值，比如
for(1..10){
print ;
}
这里print没有指定参数，所以它就会使用$_，那$_里面是什么呢？每次循环$_的值都会变化，所以$_实际上就是1 .. 10这10个值，所以上面的代码打印的结果就是12345678910
$!
当且仅当某个函数调用失败时才会设置该变量，所以经常这样使用这个变量
open FILE,"<d:/code/zdd.txt" or die $! ;
$/
这是perl中的行分隔符，默认是换行符，可以改变这个变量以便一次读入整个文件，如下
sub test{
open FILE,"<d:/code/zdd.txt" or die $! ;
my$olds= $/ ;
local $/=undef ;
my$slurp=<FILE> ;
print$slurp,"\n" ;
$/=$olds ;
}
$`
正则表达式匹配变量，代表匹配位置之前的内容
$&
正则表达式匹配变量，代表匹配的内容
$'
正则表达式匹配变量，代表匹配位置之后的内容
来看一个例子，解析xml文件，有如下xml文件，我想获得Code节点的值
<?xml version='1.0' encoding='UTF-8'?>
<Code>200</Code>
用下面的perl代码来解析
my$str="<Code>200</Code>" ;
if($str=~/(?<=<Code>)(\d+)(?=<\/Code>)/){
print"string before matched: $`","\n" ;
print"matched string: $&","\n" ;
print"string after matched: $'","\n" ;
}
运行结果是
string before matched: <Code>
matched string: 200
string after matched: </Code>
其中$`对应<Code>，$&对应200，$'对应</Code>
$|
控制对当前选择的输出文件句柄的缓冲，例子待添加。
@_
传给子程序的参数列表，通常一个子程序是这样获得传给它的参数的。
sub add {
my ($num1, $num2) = @_;
return $num1 + $num2;
}
如果子程序只有一个参数，也可以用shift来获取，此时，shift相当于shift @_
sub square {
my $num = shift ; # same as my $num = shift @_
return $num * $num;
}
perl常见符号
=> 键值对，左键右值
-> 引用，相当于java中的 【对象.方法名】中的点号
:: 表示调用类的一个方法
% 散列的标志，定义一个键值对类型的
@ 数组的标志
$ 标量的标志
=~ 匹配的标志
!~ 不匹配的标志
$! 根据上下文返回错误号或者错误串
相关文章
这篇文章主要介绍了Perl初学笔记之Hello World,本文是自学Perl的一篇笔记,本文着重讲解了cpan的使用,需要的朋友可以参考下2015-06-06
这篇文章主要介绍了Perl List::Util模块使用实例,本文给出扫描符合条件的某个列表并取出第一个符合条件的、求1到1000之间的和 、求一组数字的最大值与最小值等实用功能代码,需要的朋友可以参考下2015-06-06
perl比较两个文件字符串的例子，供大家学习参考2013-02-02
正则表达式是 Perl 语言的一大特色，也是 Perl 程序中的一点难点，不过如果大家能够很好的掌握他，就可以轻易地用正则表达式来完成字符串处理的任务，当然在 CGI 程序设计中就更能得心应手了2013-07-07
正则表达式是Perl语言的特色，基本的语法不是很难，但是编写一个符合需求、高效的正则表达式，还是有一些挑战的。下面这篇文章主要给大家介绍了关于强大的Perl正则表达式的相关资料，需要的朋友可以参考借鉴，下面来一起看看吧。2017-11-11
今天小编就为大家分享一篇关于Perl5和Perl6对比使用Sigils的差别，小编觉得内容挺不错的，现在分享给大家，具有很好的参考价值，需要的朋友一起跟随小编来看看吧2018-09-09
这篇文章主要介绍了Perl数组排序学习笔记,本文讲解了基于ASCII码排序、按字母顺序排列、Perl对数值排序等内容,需要的朋友可以参考下2015-06-06
这篇文章主要介绍了Perl脚本实现递归遍历目录下的文件,本文直接给出实现代码,代码中包含明细注释,需要的朋友可以参考下2015-04-04
这篇文章主要介绍了Perl实现遍历目录例子,本文示例运行在Windows系统下,而且需要gbk编码,需要的朋友可以参考下2014-12-12
perl的logwrapper可以对任何的函数将标准输出和错误输出重定向到对应的log文件2013-02-02
最新评论