perl 0.04 系统变量/转义字符

**更详细的去阅读perldoc perlvar**
***
@ARGV 传给脚本的命令行参数列表
@_ 传给子程序的参数列表
\$0 包含正在执行的脚本的文件名
%ENV 环境变量列表
%SIG 定义信号列表及其处理方式
\$| 控制对当前选择的输出文件句柄的缓冲 (\$| =1;  ==> 输出不缓冲）
\$/ 当前输入记录分隔符,默认情况是新行
\$! 系统产生的一些错误信息
\$@ Perl解释器从eval语句返回的错误消息
\$\$ Perl解释器的进程ID
\$? 返回上一个外部命令的状态  (要用\$? >> 8  系统退出的是16位状态，退出值在高位 ）
\$< 当前执行解释器的用户的真实ID
\$> 当前进程的有效用户ID
\$( 当前进程的用户组ID
\$) 当前进程的有效用户组ID
\$_ 默认的输入/输出和格式匹配空间 （通常用于逐行读取文件时候）
\$] Perl解释器的子版本号
\$[ 数组中第一个元素的下标，默认是0，可以改成1，然后perl就会从1开始遍历
\$, 当前输出字段分隔符，默认是undef，（printf \$a,\$b."\n";时中间的分隔符）
\$" 数组列表分隔符，默认是空格
```perl
print "The array is: @array\n";==> print "The array is: " . join($", @array) . "\n";
```
\$; 模仿多维数组时使用的分隔符，默认是"\034"
```perl
$foo{$a,$b,$c}=1; ==> $foo{join($;, $a, $b, $c)}=1;
```

\$a,\$b perl sort 的内置特殊变量
***
\$. 阅读文件的当前行号
\$ARGV 从默认的文件句柄(<> 钻石操作符)中读取的当前的文件名
```perl
[root@test ~]# cat a.pl
#!/usr/bin/perl
use warnings;
use strict;

my $lines=<>;
print $ARGV;
[root@test ~]# ./a.pl /etc/passwd
/etc/passwd
```
***
@INC 在导入模块时需要搜索的目录列表
%INC 导入模块的列表，其中的key为模块的名字，value为模块完整的路径名 
***
**正则表达式**
\$& 与上个格式匹配的字符串
\$` 在上个格式匹配信息前的字符串
\$’ 在上个格式匹配信息后的字符串
\$+ 与上个正则表达式搜索格式匹配的最后一个括号
\$<数字>含有与上个正则表达式匹配对应括号结果
***
\$^O 编译这个perl的操作系统名
\$^T 脚本开始运行的时间戳
\$^X 当前运行的Perl二进制可执行文件
\$^V Perl的版本
\$^F 最大的文件描述符数值(大于这个数值的文件描述符将不会继承给子进程
\$^I 内置控制编辑器的参数，相当于perl -i ，是修改文件时的备份文件后缀名
```perl
[root@test ~]# cat b
a
[root@test ~]# cat a.pl
#!/usr/bin/perl
$^I=".bak";
while(<>)
{
  s/a/b/g;
  print $_;
}
[root@test ~]# ./a.pl b
[root@test ~]# cat b
b
[root@test ~]# cat b.bak     #这是备份文件
a
```
\$^M备用内存池的大小 oom时候有用
\$^E在VMS, OS/2, and Win32 (and for MacPerl)环境中的操作系统产生的一些错误信息
\$^S当前解释器状态(1=>正在执行eval,2=>其他)
\$^W 有没有打开"perl -w",1是打开，(use warnings 不算）

乱读天书， 不求甚解

乱读天书，不求甚解