perl the special operator



Perl的特殊符号

@       数组                           

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

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

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

当且仅当某个函数调用失败时才会设置该变量，

所以经常这样使用这个变量：

点击(此处)折叠或打开

1. open FILE,"<d: code="" zdd.txt"<="" span=""> or die $! ;

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

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

点击(此处)折叠或打开

1. for(1..10){
   
2.     print ;
   
3. }

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

那$_里面是什么呢？

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

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

@_     子程序的私有变量

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

点击(此处)折叠或打开

1. sub add {
   
2.     my ($num1, $num2) = @_;
   
3.     return $num1 + $num2;
   
4. }
   
5. 如果子程序只有一个参数，也可以用shift来获取，此时，shift相当于shift @_
   
6. sub square {
   
7.     my $num = shift ; # same as my $num = shift @_
   
8.     return $num * $num;
   
9. }

&subfunc      调用子函数subfunc

<>           数据输入

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

Perl默认的内部变量

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

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

$”           列表分隔符 

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

$$        当前进程ID 

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

$(          当前进程的组ID 

$)           当前进程的有效组ID 

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

$,           当前输出字段分隔符 

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

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

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

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

点击(此处)折叠或打开

1. sub test{
   
2.     open FILE,"<d: code="" zdd.txt"<="" span=""> or die $! ;
   
3.     my$olds= $/ ;
   
4.     local $/=undef ;
   
5.     my$slurp=<FILE> ;
   
6.     print$slurp,"\n" ;
   
7.     $/=$olds ;
   
8. }

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

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

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

$@          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节点的值

点击(此处)折叠或打开

1. <?xml version='1.0' encoding='UTF-8'?>
   
2. <Code>200</Code>
   
3. 用下面的perl代码来解析
   
4. my$str="200" ;
   
5. if($str=~/(?<=<Code>)(\d+)(?=<\/Code>)/){
   
6.     print"string before matched: $`","\n" ;
   
7.     print"matched string: $&","\n" ;
   
8.     print"string after matched: $'","\n" ;
   
9. }
   
10. 运行结果是
    
11. string before matched: <Code>
    
12. matched string: 200
    
13. string after matched: </Code>
    
14. 其中$`对应<Code>，$&对应200，$

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

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

点击(此处)折叠或打开

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

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

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

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

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

%ENV          环境变量列表 

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

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

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

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

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