Perl 是一种高级脚本编程语言，广泛用于文本处理、web开发、系统管理等领域。它拥有丰富的语法和强大的功能，这使得它在编写复杂任务时非常有用。本文将详细介绍 Perl 的语法及其常用特性。
变量
在 Perl 中，变量通过 $ 开头进行声明和使用。Perl 支持三种变量类型：标量变量、数组变量和哈希变量。
标量变量
标量变量用于存储单个值，可以是数字、字符串或布尔值。
my $name = "John"; # 字符串
my $age = 25; # 数字
my $is_student = 1; # 布尔值
数组变量
数组变量可用于存储多个值，通过 @ 开头进行声明和使用。
my @numbers = (1, 2, 3, 4, 5); # 数字数组
my @names = ("John", "Jane", "Mary"); # 字符串数组
您还可以使用 push 和 pop 函数向数组中添加或删除元素。
push @numbers, 6; # 在数组末尾添加一个元素
pop @numbers; # 删除数组末尾的元素
哈希变量
哈希（散列）变量用于存储键值对。它们通过 % 开头进行声明和使用。
my %person = (
"name" => "John",
"age" => 25,
"country" => "USA"
);
# 访问键值对
print $person{"name"}; # 输出 John
控制结构
Perl 提供了许多控制结构，以便根据条件执行代码块或循环多次执行代码块。
if 语句
if 语句用于基于条件执行代码块。
if ($age > 18) {
print "成年人";
} elsif ($age > 12) {
print "青少年";
} else {
print "儿童";
}
for 循环
for 循环用于重复执行代码块，可用于遍历数组或执行固定次数的循环。
for my $i (1..5) {
print $i;
}
my @numbers = (1, 2, 3, 4, 5);
for my $num (@numbers) {
print $num;
}
while 循环
while 循环用于基于条件重复执行代码块。
my $counter = 1;
while ($counter <= 5) {
print $counter;
$counter++;
}
函数
Perl 支持定义和调用函数，可将代码逻辑封装为可重用的代码块。
sub greet {
my $name = shift;
print "Hello, $name!";
}
greet("John"); # 输出 Hello, John!
函数可以返回值，使用 return 关键字。
sub add {
my ($num1, $num2) = @_;
return $num1 + $num2;
}
my $result = add(2, 3); # $result 的值为 5
正则表达式
Perl 内置了强大的正则表达式功能，可用于匹配和处理文本。
my $text = "Hello, World!";
if ($text =~ /Hello, (\w+)!/) {
print "匹配成功";
my $name = $1; # 将匹配到的部分存储到变量中
}
正则表达式还可以进行替换和全局替换。
my $text = "Hello, John!";
$text =~ s/John/Peter/; # 将 John 替换为 Peter
my $new_text = "Hello, Mary!";
$new_text =~ s/Hello/Hi/g; # 全局替换 Hello 为 Hi
文件处理
Perl 提供了丰富的文件处理功能，可以读取、写入和编辑文件。
打开文件
使用 open 函数打开一个文件，并将其绑定到一个文件句柄。
open(my $file, "<", "example.txt") or die "无法打开文件：$!";
读取文件
使用 <$file> 语法从文件句柄读取文件内容。
while (my $line = <$file>) {
chomp $line; # 去除行尾的换行符
print $line;
}
写入文件
使用 > 符号打开一个文件以进行写入。
open(my $file, ">", "output.txt") or die "无法打开文件：$!";
my $text = "Hello, World!";
print $file $text;
close($file);
以上仅是 Perl 的一部分语法和特性的简要介绍，它拥有许多其他功能，如模块、异常处理等。希望本文能为您提供有关 Perl 语法的基本了解，并帮助您在编写 Perl 代码时更加得心应手。
