Perl 以其丰富的特殊符号和操作符而闻名，这些符号是 Perl 表达能力强、代码简洁的重要原因。以下分类介绍：
一、变量前缀符号
1. 标量变量
$scalar = "hello"; # 单个值
$num = 42;
$ref = \@array; # 引用
2. 数组变量
@array = (1, 2, 3);
$array[0] = 10; # 访问单个元素用 $ 前缀
3. 哈希变量
%hash = (a => 1, b => 2);
$hash{'a'} = 10; # 访问单个值用 $ 前缀
二、特殊变量（常用的）
1. 默认变量
$_ # 默认标量，很多函数默认操作它
@_ # 子程序参数列表
$" # 数组内插到字符串时的分隔符，默认空格
$, # print 输出列表时的分隔符
2. 正则表达式相关
$& # 最近一次模式匹配的文本（性能影响，少用）
$` # 匹配内容之前的文本
$' # 匹配内容之后的文本
$1, $2 # 捕获分组
3. 文件句柄/IO
$. # 当前行号
$/ # 输入记录分隔符，默认换行符
$\ # 输出记录分隔符
$| # 自动刷新缓冲区（=1 时自动刷新）
三、引用和解引用
1. 创建引用
$scalar_ref = \$scalar;
$array_ref = \@array;
$hash_ref = \%hash;
$code_ref = \&subroutine;
2. 解引用
$$scalar_ref # 标量引用解引用
@$array_ref # 数组引用解引用
%$hash_ref # 哈希引用解引用
&$code_ref() # 子程序引用调用
$array_ref->[0] # 箭头符号访问
$hash_ref->{key} # 箭头符号访问
四、上下文相关符号
1. 标量上下文 vs 列表上下文
@arr = (1, 2, 3);
$count = @arr; # 标量上下文：得到数组长度 3
@copy = @arr; # 列表上下文：复制数组
2. 强制上下文
scalar(@array) # 强制标量上下文
() = /pattern/g # 列表上下文中的模式匹配
五、操作符
1. 字符串操作符
. # 字符串连接
x # 字符串重复
eq, ne # 字符串相等比较
lt, gt # 字符串小于/大于比较
2. 特殊比较操作符
<=> # 数值比较：-1,0,1
cmp # 字符串比较：-1,0,1
~~ # 智能匹配（Perl 5.10+）
3. 范围操作符
.. # 列表范围（包含）
... # 列表范围（右开区间）
4. 文件测试操作符
-e $file # 存在
-f $file # 普通文件
-d $dir # 目录
-r $file # 可读
-w $file # 可写
-x $file # 可执行
-s $file # 文件大小
六、正则表达式符号
1. 匹配操作符
=~ # 绑定操作符（匹配、替换）
!~ # 不匹配
m// # 匹配（可省略 m）
s/// # 替换
tr/// # 字符转换
y/// # tr 的同义词
2. 修饰符
/i # 忽略大小写
/s # 点号匹配换行符
/m # 多行模式
/x # 忽略空白和注释
/g # 全局匹配
七、特殊语法结构
1. 引号类操作符
q() # 单引号
qq() # 双引号
qx() # 反引号（执行命令）
qw() # 单词列表
qr() # 编译正则表达式
示例：
@list = qw(apple banana cherry);
$cmd = qx(date);
$regex = qr/\d+/;
2. HERE 文档
print <<"EOF";
多行文本
EOF
my $text = <<'END';
不会内插的文本
$var 保持原样
END
八、流程控制符号
1. 语句修饰符
statement if condition;
statement unless condition;
statement while condition;
statement until condition;
statement for @list;
2. 循环控制
last # 相当于 break
next # 相当于 continue
redo # 重新执行当前迭代
九、其他重要符号
1. 错误处理
$! # 系统错误信息
$@ # eval 错误信息
$? # 子进程退出状态
2. 引用语法糖
[1, 2, 3] # 匿名数组引用
{a => 1, b => 2} # 匿名哈希引用
sub { ... } # 匿名子程序引用
十、实用示例
#!/usr/bin/perl
use strict;
use warnings;
# 特殊变量的使用
while (<>) { # 从标准输入或文件读取，赋给 $_
chomp; # 默认操作 $_
print if /pattern/; # 默认匹配 $_
}
# 引用使用示例
my $config = {
name => 'test',
data => [1, 2, 3],
handler => sub { return "processed" }
};
print $config->{name}; # test
print $config->{data}->[0]; # 1
print $config->{handler}->(); # processed
Perl 的符号系统虽然复杂，但掌握后能写出非常简洁高效的代码。建议从常用符号开始学习，逐步深入。
