Perl中的特殊符號介紹
$_
俗稱perl的老地方,當你的程序中未告知使用哪個參數(shù)或者變量時,perl就會自動使用$_中的值,比如
for(1..10){
print ;
}
這里print沒有指定參數(shù),所以它就會使用$_,那$_里面是什么呢?每次循環(huán)$_的值都會變化,所以$_實際上就是1 .. 10這10個值,所以上面的代碼打印的結(jié)果就是12345678910
$!
當且僅當某個函數(shù)調(diào)用失敗時才會設置該變量,所以經(jīng)常這樣使用這個變量
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 ;
}
$`
正則表達式匹配變量,代表匹配位置之前的內(nèi)容
$&
正則表達式匹配變量,代表匹配的內(nèi)容
$'
正則表達式匹配變量,代表匹配位置之后的內(nèi)容
來看一個例子,解析xml文件,有如下xml文件,我想獲得Code節(jié)點的值
<?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" ;
}
運行結(jié)果是
string before matched: <Code>
matched string: 200
string after matched: </Code>
其中$`對應<Code>,$&對應200,$'對應</Code>
$|
控制對當前選擇的輸出文件句柄的緩沖,例子待添加。
@_
傳給子程序的參數(shù)列表,通常一個子程序是這樣獲得傳給它的參數(shù)的。
sub add {
my ($num1, $num2) = @_;
return $num1 + $num2;
}
如果子程序只有一個參數(shù),也可以用shift來獲取,此時,shift相當于shift @_
sub square {
my $num = shift ; # same as my $num = shift @_
return $num * $num;
}
perl常見符號
=> 鍵值對,左鍵右值
-> 引用,相當于java中的 【對象.方法名】中的點號
:: 表示調(diào)用類的一個方法
% 散列的標志,定義一個鍵值對類型的
@ 數(shù)組的標志
$ 標量的標志
=~ 匹配的標志
!~ 不匹配的標志
$! 根據(jù)上下文返回錯誤號或者錯誤串

