Perl中常见的特殊符号

@ 数组

$x{} x名字前面是美元符号($),后面是花括号({}),则其为 hash 元素

% 要引用整个 hash,使用百分号(“ )作为前缀。前面几页中使用的 hash 的名字为%family_name。

$! 根据上下文内容返回错误号或者是系统产生的一些可读的信息;

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

点击(此处)折叠或打开

open FILE,"<d:/code/zdd.txt" or die $! ;

$_ 子函数参数变量自己本身; 默认的输入/输出和格式匹配空间 ;

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

点击(此处)折叠或打开

for(1..10){

print ;

}

这里print没有指定参数，所以它就会使用$_。

那$_里面是什么呢？

每次循环$_的值都会变化，所以$_实际上就是1 .. 10这10个值，

所以上面的代码打印的结果就是12345678910

@_ 子程序的私有变量

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

点击(此处)折叠或打开

sub add {

my ($num1, $num2) = @_;

return $num1 + $num2;

}

如果子程序只有一个参数，也可以用shift来获取，此时，shift相当于shift @_

sub square {

my $num = shift ; # same as my $num = shift @_

return $num * $num;

}

&subfunc 调用子函数subfunc

<> 数据输入

如果没有指定文件名,则其从标准输入流中自动打开和关闭一系列文件进行读入

Perl默认的内部变量

$- 当前页可打印的行数,属于Perl格式系统的一部分

$= 当前页面可打印行的数目

$” 列表分隔符

$# 打印数字时默认的数字输出格式

$$ 当前进程ID

$% 当前输出通道的当前页号

$( 当前进程的组ID

$) 当前进程的有效组ID

$* 设置1表示处理多行格式.现在多以/s和/m修饰符取代之.

$, 当前输出字段分隔符

$. 上次阅读的文件的当前输入行号

$/ 当前输入记录的分隔符;

这是perl中的行分隔符，默认是换行符.

可以改变这个变量以便一次读入整个文件，例如：

点击(此处)折叠或打开

sub test{

open FILE,"<d:/code/zdd.txt" or die $! ;

my$olds= $/ ;

local $/=undef ;

my$slurp=<FILE> ;

print$slurp," " ;

$/=$olds ;

}

$: 字符设置,此后的字符串将被分开,以填充连续的字段.

$; 在仿真多维数组时使用的分隔符.

$? 返回上一个外部命令的状态

$@ Perl解释器从eval语句返回的错误消息

$[ 数组中第一个元素的索引号

$ 当前输出记录的分隔符

$] Perl解释器的子版本号

$^ 当前通道最上面的页面输出格式名字

$^A 打印前用于保存格式化数据的变量

$^D 调试标志的值

$^E 在非UNIX环境中的操作系统扩展错误信息

$^F 最大的文件捆述符数值

$^H 由编译器激活的语法检查状态

$^I 内置控制编辑器的值

$^L 发送到输出通道的走纸换页符

$^M 备用内存池的大小

$^O 操作系统名

$^P 指定当前调试值的内部变量

$^R 正则表达式块的上次求值结果

$^S 当前解释器状态

$^T 从新世纪开始算起,脚步本以秒计算的开始运行的时间

$^W 警告开关的当前值

$^X Perl二进制可执行代码的名字

$| 控制对当前选择的输出文件句柄的缓冲

若将该变量设为非零值，就会立刻强制进行刷新;

并且当前选中的输出通道在每次打印或写之后都会进行刷新。

默认值为 0 ;

(不管选中的通道实际上是否被系统所缓冲， $| 只是告诉你Perl是否在每次写完之后显式刷新)。

典型情况下，若 STDOUT的输出是终端, 则是行缓冲模式，否则就是块缓冲。

设置该变量，在向管道或套接字输出时很有用。

比如你正在 rsh 下运行一个 Perl程序并且想在输出时马上就能看到输出内容。

该变量不影响输入缓冲。

$~ 当前报告格式的名字

$& 与上个格式匹配的字符串 : 正则表达式匹配变量，代表匹配的内容

$` 在上个格式匹配信息前的字符串 : 正则表达式匹配变量，代表匹配位置之前的内容

$’ 在上个格式匹配信息后的字符串 :正则表达式匹配变量，代表匹配位置之后的内容

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

点击(此处)折叠或打开

<?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: $`"," " ;

print"matched string: $&"," " ;

print"string after matched: $'"," " ;

}

运行结果是

string before matched: <Code>

matched string: 200

string after matched: </Code>

其中$`对应<Code>，$&对应200，$

$+ 与上个正则表达式搜索格式匹配的最后一个括号

在无法知道可选模式集中 到底哪一个匹配成功时，该变量是非常有用的。例如：

点击(此处)折叠或打开

/Version: (.*)|Revision: (.*)/ && ($rev = $+)

$< 当前执行解释器的用户的真实ID

$<digits> 含有与上个匹配正则表达式对应括号结果

$> 当前进程的有效用户ID ，包含正在执行的脚本的文件名

$ ARGV 从默认的文件句柄中读取时的当前文件名

%ENV 环境变量列表

%INC 通过do或require包含的文件列表

%SIG 信号列表及其处理方式

@_ 传给子程序的参数列表

@ARGV 传给脚本的命令行参数列表

@INC 在导入模块时需要搜索的目录列表

本文的参考文章：

1. http://sm4llb0y.blog.163.com/blog/static/18912397200781104046530/
2. http://blog.csdn.net/felix_vip/article/details/7053939
3. http://www.cnblogs.com/softwaretesting/archive/2011/08/08/2130663.html