Perl中的特殊符号介绍

$_  

俗称perl的老地方，当你的程序中未告知使用哪个参数或者变量时，perl就会自动使用$_中的值，比如

 for(1..10){ print ; }

这里print没有指定参数，所以它就会使用$_，那$_里面是什么呢？每次循环$_的值都会变化，所以$_实际上就是1 .. 10这10个值，所以上面的代码打印的结果就是12345678910

$!

当且仅当某个函数调用失败时才会设置该变量，所以经常这样使用这个变量

open FILE,"

$/

这是perl中的行分隔符，默认是换行符，可以改变这个变量以便一次读入整个文件，如下

 sub test{ open FILE," ; print$slurp,"\n" ; $/=$olds ; }

$`

正则表达式匹配变量，代表匹配位置之前的内容

$&  

正则表达式匹配变量，代表匹配的内容

$' 

正则表达式匹配变量，代表匹配位置之后的内容

来看一个例子，解析xml文件，有如下xml文件，我想获得Code节点的值

200
用下面的perl代码来解析

 my$str="200" ; if($str=~/(?<=)(\d+)(?=<\/Code>)/){ print"string before matched: $`","\n" ; print"matched string: $&","\n" ; print"string after matched: $'","\n" ; }

运行结果是

string before matched:
matched string: 200
string after matched:

其中$`对应，$&对应200，$'对应

$|

控制对当前选择的输出文件句柄的缓冲，例子待添加。

@_

传给子程序的参数列表，通常一个子程序是这样获得传给它的参数的。

 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中的 【对象.方法名】中的点号

:: 表示调用类的一个方法

% 散列的标志，定义一个键值对类型的

@ 数组的标志

$ 标量的标志

=~ 匹配的标志

!~ 不匹配的标志

$! 根据上下文返回错误号或者错误串