常用:
$x{} x名字前面是美元符号($),后面是花括号({}),则其为 hash 元素
% 要引用整个 hash,使用百分号(“ )作为前缀。前面几页中使用的 hash 的名字为%family_name。
$! 系统产生的一些可读的信息,也可能是出错的信息
$_ 子函数参数变量自己本身
@_ 子程序的私有变量 @ 数组
&x 调用子函数x
<> 数据输入.如果没有指定文件名,则其从标准输入流中自动打开和关闭一系列文件进行读入perl默认的内部变量:
$-当前页可打印的行数,属于Perl格式系统的一部分
$! 根据上下文内容返回错误号或者错误串
$” 列表分隔符
$# 打印数字时默认的数字输出格式
$$ Perl解释器的进程ID
$% 当前输出通道的当前页号
$& 与上个格式匹配的字符串
$( 当前进程的组ID
$) 当前进程的有效组ID
$* 设置1表示处理多行格式.现在多以/s和/m修饰符取代之.
$, 当前输出字段分隔符
$. 上次阅读的文件的当前输入行号
$/ 当前输入记录分隔符,默认情况是新行
$: 字符设置,此后的字符串将被分开,以填充连续的字段.
$; 在仿真多维数组时使用的分隔符.
$? 返回上一个外部命令的状态
$@ Perl解释器从eval语句返回的错误消息
$[ 数组中第一个元素的索引号
$\ 当前输出记录的分隔符
$] Perl解释器的子版本号
$^ 当前通道最上面的页面输出格式名字
$^A 打印前用于保存格式化数据的变量
$^D调试标志的值
$^E在非UNIX环境中的操作系统扩展错误信息
$^F最大的文件捆述符数值
$^H由编译器激活的语法检查状态
$^I内置控制编辑器的值
$^L发送到输出通道的走纸换页符
$^M备用内存池的大小
$^O操作系统名
$^P指定当前调试值的内部变量
$^R正则表达式块的上次求值结果
$^S当前解释器状态
$^T从新世纪开始算起,脚步本以秒计算的开始运行的时间
$^W警告开关的当前值
$^X Perl二进制可执行代码的名字
$_ 默认的输入/输出和格式匹配空间
$| 控制对当前选择的输出文件句柄的缓冲
$~ 当前报告格式的名字
$` 在上个格式匹配信息前的字符串
$’ 在上个格式匹配信息后的字符串
$+ 与上个正则表达式搜索格式匹配的最后一个括号
$< 当前执行解释器的用户的真实ID
$<digits>含有与上个匹配正则表达式对应括号结果
$= 当前页面可打印行的数目
$> 当前进程的有效用户ID
包含正在执行的脚本的文件名
$ ARGV 从默认的文件句柄中读取时的当前文件名
%ENV 环境变量列表
%INC 通过do或require包含的文件列表
%SIG 信号列表及其处理方式
@_ 传给子程序的参数列表
@ARGV 传给脚本的命令行参数列表
@INC 在导入模块时需要搜索的目录列表
符号->
-> 有两种用法,都和解引用有关。
第一种用法,是解引用。
根据 -> 后面跟的符号的不同,解不同类型的引用,
->[] 表示解数组引用,->{} 表示解散列引用,->() 表示解子程序引用。
例子:
$arr_ref = \@array;
$arr_ref->[0] 访问数组 @array 的第一个元素。
$hash_ref = \%hash;
$hash_ref->{foo} 访问 %hash 的 foo 分量
$sub_ref = \&test;
$sub_ref->(1, 2, 3) 使用参数列表 (1,2,3) 来调用 &test 这个子程序。
第二种用法,是调用类或者对象的方法。
格式:
$obj->method();
或者
ClassName->method();
例如:
$pop3->login( $username, $password );
my $ftp = Net::FTP->new("some.host.name", Debug => 0);
这两种用法略有不同,但是总的来说,符合以下规则:
引用:[color=red]假设 -> 的左操作数(就是左边那个值,如 $pop3 和 Net::FTP)是 $left,右操作数(就是右边那个值,如 login 和 new)是 $right,那么 -> 的运算规则就是:
if ( ref $left 有效 ){ # 也就是说 $left 是个引用,而不是个裸字
$ClassName = ref $left; # 取引用的类型,当作类名称
}
else{
$ClassName = $left; # 直接把裸字当作类名称
}
然后调用:
&{$ClassName::$right}(
$left,
原参数列表
)
也就是说把类名称和右操作数拼在一起,当作子程序名称(注),并把左操作数当作第一个参数。
符号=>
关系操作符=>只是逗号操作符的替代物,它在显示成对的参数时非常有用。
例子:
$query ->Button(-in,\$reply,-side,'left',-padx,2m,-pady,
2m,-ipadx,2m,-ipady,1m)->pack(-side,'bottom');
使用符号=>:
$query ->Button( -in =>\$reply,
-side => 'left',
-padx => 2m,
-pady => 2m,
-ipadx => 2m,
-ipady => 1m )->pack(-side=> 'bottom');
注意,如果你需要用数字“大于等于”的符号,你应该用“>=”而不是“=>”。
符号::
“::”符号可以认为是与C语言中的“.”相似的,而它更像C++中的::类范围操作符。
a.b.c;
a::b::c(); // C++ 中的函数
$a::b::c; # Perl 5中的标量
@a::b::c; # Perl 5中的列表
%a::b::c; # Perl 5中的关联数组(或叫hash)
&a::b::c; # Perl 5中的函数
另外,Perl4中的单 撇号也具有相同的功能:
$main'foo; # Perl 4中的标量$foo
$main::foo; # Perl 5中的标量$foo出于向后兼容的考虑,Perl5也运行使用$main'foo,但是仍推荐使用$main::foo。