Perl中常见的特殊符号

发布时间：2020-12-15 23:43:42 所属栏目：大数据来源：网络整理

导读：@????? ?? 数组 ?? ? ? ? ? ? ? ? ? ? ? ? ?? $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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!