Perl中常见符号与操作

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 的符号系统虽然复杂，但掌握后能写出非常简洁高效的代码。建议从常用符号开始学习，逐步深入。