DDR爱好者之家 Design By 杰米
$_
俗称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节点的值
<"htmlcode">
my$str="<Code>200</Code>" ; if($str=~/("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中的 【对象.方法名】中的点号
:: 表示调用类的一个方法
% 散列的标志,定义一个键值对类型的
@ 数组的标志
$ 标量的标志
=~ 匹配的标志
!~ 不匹配的标志
$! 根据上下文返回错误号或者错误串
DDR爱好者之家 Design By 杰米
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
DDR爱好者之家 Design By 杰米
暂无评论...
更新日志
2025年01月06日
2025年01月06日
- 小骆驼-《草原狼2(蓝光CD)》[原抓WAV+CUE]
- 群星《欢迎来到我身边 电影原声专辑》[320K/MP3][105.02MB]
- 群星《欢迎来到我身边 电影原声专辑》[FLAC/分轨][480.9MB]
- 雷婷《梦里蓝天HQⅡ》 2023头版限量编号低速原抓[WAV+CUE][463M]
- 群星《2024好听新歌42》AI调整音效【WAV分轨】
- 王思雨-《思念陪着鸿雁飞》WAV
- 王思雨《喜马拉雅HQ》头版限量编号[WAV+CUE]
- 李健《无时无刻》[WAV+CUE][590M]
- 陈奕迅《酝酿》[WAV分轨][502M]
- 卓依婷《化蝶》2CD[WAV+CUE][1.1G]
- 群星《吉他王(黑胶CD)》[WAV+CUE]
- 齐秦《穿乐(穿越)》[WAV+CUE]
- 发烧珍品《数位CD音响测试-动向效果(九)》【WAV+CUE】
- 邝美云《邝美云精装歌集》[DSF][1.6G]
- 吕方《爱一回伤一回》[WAV+CUE][454M]