$_
俗称perl的老地方,当你的程序中未告知使用哪个参数或者变量时,perl就会自动使用$_中的值,比如
1
2
3
|
for (1..10){ print ; } |
这里print没有指定参数,所以它就会使用$_,那$_里面是什么呢?每次循环$_的值都会变化,所以$_实际上就是1 .. 10这10个值,所以上面的代码打印的结果就是12345678910
$!
当且仅当某个函数调用失败时才会设置该变量,所以经常这样使用这个变量
open FILE,"<d:/code/zdd.txt" or die $! ;
$/
这是perl中的行分隔符,默认是换行符,可以改变这个变量以便一次读入整个文件,如下
1
2
3
4
5
6
7
8
|
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代码来解析
1
2
3
4
5
6
|
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>
$|
控制对当前选择的输出文件句柄的缓冲,例子待添加。
@_
传给子程序的参数列表,通常一个子程序是这样获得传给它的参数的。
1
2
3
4
|
sub add { my ( $num1 , $num2 ) = @_ ; return $num1 + $num2 ; } |
如果子程序只有一个参数,也可以用shift来获取,此时,shift相当于shift @_
1
2
3
4
|
sub square { my $num = shift ; # same as my $num = shift @_ return $num * $num ; } |
perl常见符号
=> 键值对,左键右值
-> 引用,相当于java中的 【对象.方法名】中的点号
:: 表示调用类的一个方法
% 散列的标志,定义一个键值对类型的
@ 数组的标志
$ 标量的标志
=~ 匹配的标志
!~ 不匹配的标志
$! 根据上下文返回错误号或者错误串
原文链接:http://www.cnblogs.com/softwaretesting/archive/2011/08/08/2130663.html