$_
俗称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;
}
==
运维网声明
1、欢迎大家加入本站运维交流群:群②:261659950 群⑤:202807635 群⑦870801961 群⑧679858003
2、本站所有主题由该帖子作者发表,该帖子作者与运维网 享有帖子相关版权
3、所有作品的著作权均归原作者享有,请您和我们一样尊重他人的著作权等合法权益。如果您对作品感到满意,请购买正版
4、禁止制作、复制、发布和传播具有反动、淫秽、色情、暴力、凶杀等内容的信息,一经发现立即删除。若您因此触犯法律,一切后果自负,我们对此不承担任何责任
5、所有资源均系网友上传或者通过网络收集,我们仅提供一个展示、介绍、观摩学习的平台,我们不对其内容的准确性、可靠性、正当性、安全性、合法性等负责,亦不承担任何法律责任
6、所有作品仅供您个人学习、研究或欣赏,不得用于商业或者其他用途,否则,一切后果均由您自己承担,我们对此不承担任何法律责任
7、如涉及侵犯版权等问题,请您及时通知我们,我们将立即采取措施予以解决
8、联系人Email:admin@iyunv.com 网址:www.yunweiku.com