Perl 中的特殊变量 $
&,
$`
,
$
'
用在模式匹配中
$& 用来存放匹配中的值
$` 用来存放匹配中之前所有字符
$ ' 用来存放匹配中之后所有字符
如:
# !/usr/bin/perl -w
if ( " Hello good there,neigbor hello " =~ / S( w + ) ,/ )
{
print " That actually matched '$&'. " ;
print $` . " " ;
print $ ' ." ";
}
执行的结果为:
That actually matched ' there , ' .
Hello good
neigbor hello
----------------------------------------------
另外常用的变量@_
@_是子程序的一个私有变量◆;如果有一个全局变量@_,它将在此子程序调用前存储起来,当子程序调用完成后,其早期的值会被重新赋还给@_◆。这意味着当将参数传递给子程序时不用担心它会影响此程序中其它子程序的@_这个变量的值。嵌套的子程序调用时,@_的值和上述类似。甚至此子程序递归调用时,每一次调用将得到新的@_,因此子程序调用时将得到其自身的参数列表。
◆除非调用的子程序前有&而后面没有括号(或者没有参数),此时@_从此调用者的上下文(context)得到。这通常不是个好主意,但有时很
有用。
$& 用来存放匹配中的值
$` 用来存放匹配中之前所有字符
$ ' 用来存放匹配中之后所有字符
如:
# !/usr/bin/perl -w
if ( " Hello good there,neigbor hello " =~ / S( w + ) ,/ )
{
print " That actually matched '$&'. " ;
print $` . " " ;
print $ ' ." ";
}
执行的结果为:
That actually matched ' there , ' .
Hello good
neigbor hello
----------------------------------------------
另外常用的变量@_
@_是子程序的一个私有变量◆;如果有一个全局变量@_,它将在此子程序调用前存储起来,当子程序调用完成后,其早期的值会被重新赋还给@_◆。这意味着当将参数传递给子程序时不用担心它会影响此程序中其它子程序的@_这个变量的值。嵌套的子程序调用时,@_的值和上述类似。甚至此子程序递归调用时,每一次调用将得到新的@_,因此子程序调用时将得到其自身的参数列表。
◆除非调用的子程序前有&而后面没有括号(或者没有参数),此时@_从此调用者的上下文(context)得到。这通常不是个好主意,但有时很
有用。