Perl 是一种高效、功能强大且灵活的编程语言，广泛用于文本处理、系统管理、网络编程、Web 开发等领域。它由 Larry Wall 在 1987 年首次发布，名字来源于“Practical Extraction and Report Language”。
Perl 的特点
- 强大的文本处理能力：Perl 有着强大的正则表达式和字符串处理功能，非常适合处理各种文本文件。
- 灵活性：Perl 有着宽松的语法规则，允许多种编程风格。
- 跨平台：Perl 可以在多种操作系统上运行，包括 Unix、Linux、Windows 和 macOS。
- 丰富的模块和库：通过 CPAN（Comprehensive Perl Archive Network），Perl 提供了大量的模块和库，可以大大简化开发工作。
- 解释性语言：Perl 是一种解释型语言，不需要编译，便于快速开发和测试。
Hello World
下面是一个简单的 Perl 脚本，打印“Hello, World!”：
#!/usr/bin/perl
use strict;
use warnings;
print "Hello, World!\n";
基本语法
变量
Perl 有三种主要类型的变量：标量、数组和哈希。
-
标量：以
$开头，用于存储单个值（字符串、整数、浮点数等）。my $name = "John"; my $age = 30; -
数组：以
@开头，用于存储一组有序的值。my @colors = ("Red", "Green", "Blue"); print $colors[0]; # 输出: Red -
哈希：以
%开头，用于存储键值对。my %person = ("name" => "John", "age" => 30); print $person{"name"}; # 输出: John
条件语句
Perl 支持常见的条件语句如 if, elsif, else 和 unless。
my $grade = 85;
if ($grade >= 90) {
print "A\n";
} elsif ($grade >= 80) {
print "B\n";
} elsif ($grade >= 70) {
print "C\n";
} else {
print "F\n";
}
循环
Perl 支持 for, foreach, while 和 until循环。
# for 循环
for (my $i = 0; $i < 5; $i++) {
print "Number: $i\n";
}
# while 循环
my $j = 0;
while ($j < 5) {
print "Number: $j\n";
$j++;
}
# foreach 循环
my @colors = ("Red", "Green", "Blue");
foreach my $color (@colors) {
print "Color: $color\n";
}
函数
Perl 支持用户定义函数，使用 sub 关键字。
sub greet {
my ($name) = @_;
return "Hello, $name!";
}
print greet("John");
文件操作
Perl 提供了丰富的文件操作功能。
# 打开文件
open(my $fh, '<', 'file.txt') or die "不能打开文件: $!";
# 读取文件内容
while (my $line = <$fh>) {
print $line;
}
# 关闭文件
close($fh);
模块和库
Perl 有一个庞大的模块和库生态系统，通过 CPAN 可以轻松安装和使用各种模块。
cpan install JSON # 安装模块
使用模块：
use JSON;
my $json_text = '{"name": "John", "age": 30}';
my $data = decode_json($json_text);
print $data->{name}; # 输出: John
运行 Perl 脚本
保存你的 Perl 脚本为script.pl，在命令行运行：
perl script.pl