Perl 语言入门教程

Perl 语言入门教程

Perl 是一种功能强大的脚本语言，广泛应用于文本处理、系统管理、网络编程和 Web 开发。本文将带你入门 Perl 编程，涵盖基础语法、变量、控制结构、函数和文件操作等内容。

目录

1. 安装 Perl
2. 第一个 Perl 程序
3. 变量
4. 运算符
5. 控制结构
6. 函数
7. 文件操作
8. 正则表达式
9. 模块

安装 Perl

在 Windows 上安装 Perl

1. 下载并安装 Strawberry Perl，它是一个完整的 Perl 环境，包含所有必要的模块和工具。

在 macOS 和 Linux 上安装 Perl

macOS 和大多数 Linux 发行版都预装了 Perl。你可以在终端中输入以下命令来检查 Perl 是否已安装：

perl -v

如果没有安装，可以使用包管理器来安装：

# 在 macOS 上使用 Homebrew 安装
brew install perl

# 在 Debian/Ubuntu 上使用 APT 安装
sudo apt-get install perl

# 在 CentOS/Fedora 上使用 YUM 安装
sudo yum install perl

第一个 Perl 程序

使用你喜欢的文本编辑器创建一个名为 hello.pl 的文件，输入以下代码：

#!/usr/bin/perl
use strict;
use warnings;

print "Hello, world!\n";

保存文件后，在终端中运行该程序：

perl hello.pl

你应该会看到输出：

Hello, world!

变量

Perl 支持三种类型的变量：标量、数组和哈希。

标量

标量用于存储单一值，可以是字符串、数字或引用。标量变量以美元符号 $ 开头。

my $name = "Alice";
my $age = 30;
my $pi = 3.14;

print "Name: $name\n";
print "Age: $age\n";
print "Pi: $pi\n";

数组

数组用于存储有序列表，数组变量以 @ 开头。

my @colors = ("red", "green", "blue");
print "First color: $colors[0]\n";
print "All colors: @colors\n";

哈希

哈希用于存储键值对，哈希变量以 % 开头。

my %fruit_colors = (
    apple => "red",
    banana => "yellow",
    grape => "purple",
);

print "Apple is $fruit_colors{'apple'}\n";

运算符

Perl 提供了多种运算符，包括算术运算符、字符串运算符和比较运算符等。

算术运算符

my $sum = 5 + 3;
my $difference = 5 - 3;
my $product = 5 * 3;
my $quotient = 5 / 3;
my $remainder = 5 % 3;

print "Sum: $sum\n";
print "Difference: $difference\n";
print "Product: $product\n";
print "Quotient: $quotient\n";
print "Remainder: $remainder\n";

字符串运算符

my $greeting = "Hello, " . "world!";
my $repeat = "ha" x 3;

print "$greeting\n";
print "$repeat\n";

比较运算符

• 数值比较运算符：==, !=, <, >, <=, >=
• 字符串比较运算符：eq, ne, lt, gt, le, ge

my $num1 = 5;
my $num2 = 10;

if ($num1 == $num2) {
    print "Numbers are equal\n";
} else {
    print "Numbers are not equal\n";
}

my $str1 = "apple";
my $str2 = "banana";

if ($str1 eq $str2) {
    print "Strings are equal\n";
} else {
    print "Strings are not equal\n";
}

控制结构

条件语句

my $age = 20;

if ($age >= 18) {
    print "Adult\n";
} else {
    print "Minor\n";
}

循环语句

while 循环

my $count = 0;

while ($count < 5) {
    print "Count: $count\n";
    $count++;
}

for 循环

for (my $i = 0; $i < 5; $i++) {
    print "Iteration: $i\n";
}

foreach 循环

my @numbers = (1, 2, 3, 4, 5);

foreach my $num (@numbers) {
    print "Number: $num\n";
}

函数

定义和调用函数

sub greet {
    my ($name) = @_;
    print "Hello, $name!\n";
}

greet("Alice");

返回值

sub add {
    my ($a, $b) = @_;
    return $a + $b;
}

my $result = add(5, 3);
print "Sum: $result\n";

文件操作

读取文件

my $filename = 'input.txt';

open(my $fh, '<', $filename) or die "Could not open file '$filename' $!";

while (my $line = <$fh>) {
    chomp $line;
    print "$line\n";
}

close($fh);

写入文件

my $filename = 'output.txt';

open(my $fh, '>', $filename) or die "Could not open file '$filename' $!";

print $fh "Hello, file!\n";

close($fh);

正则表达式

匹配

my $text = "The quick brown fox";

if ($text =~ /quick/) {
    print "Text contains 'quick'\n";
}

替换

my $text = "The quick brown fox";
$text =~ s/quick/slow/;

print "$text\n";  # The slow brown fox

提取

my $text = "My phone number is 123-456-7890";
if ($text =~ /(\d{3})-(\d{3})-(\d{4})/) {
    print "Area code: $1\n";
    print "Main number: $2-$3\n";
}

模块

Perl 拥有丰富的模块库，可以使用 CPAN（Comprehensive Perl Archive Network）来安装和管理模块。

安装模块

cpan install Some::Module

使用模块

use Some::Module;

# 使用模块提供的功能