Perl中常见的特殊符号

概述@       数组                            $x{}    x名字前面是美元符号($),后面是花括号({}),则其为 hash 元素 %        要引用整个 hash,使用百分号(“ )作为前缀。前面几页中使用的 hash 的名字为%family_name。 $!       根据上下文内容返回错误号或者是系统产生的一些可读的信息; 当且仅当某个函数调用失败时

@       数组                           

$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

总结

以上是内存溢出为你收集整理的Perl中常见的特殊符号全部内容，希望文章能够帮你解决Perl中常见的特殊符号所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。