Perl 内置函数概览

Perl 是一种功能强大的脚本语言，它内置了大量的函数来简化编程任务。这些函数涵盖了字符串操作、数组处理、哈希表管理、文件系统操作等各个方面。本章将详细介绍一些常用的 Perl 内置函数。

字符串处理函数

chomp

chomp 函数用于删除字符串末尾的换行符。它会修改原字符串，而不是创建一个新字符串。

my $string = "Hello, World!\n";
chomp($string);
print $string;  # 输出: Hello, World!

chop

chop 函数类似于 chomp，但它可以删除任意字符，而不仅仅是换行符。默认情况下，它会删除最后一个字符。

my $string = "Hello, World!";
chop($string);
print $string;  # 输出: Hello, World

length

length 函数返回字符串的长度。

my $string = "Hello, World!";
my $len = length($string);
print $len;  # 输出: 13

substr

substr 函数用于获取或修改字符串的一部分。它可以接受四个参数：原始字符串、起始位置、长度和替换字符串（可选）。

my $string = "Hello, World!";
my $sub = substr($string, 0, 5);  # 获取从位置0开始的5个字符
print $sub;  # 输出: Hello

substr($string, 7, 5, "PERL");  # 替换从位置7开始的5个字符为"PERL"
print $string;  # 输出: Hello, PERL!

index

index 函数用于查找子字符串在主字符串中的位置。如果找到，返回其位置；否则返回 -1。

my $string = "Hello, World!";
my $pos = index($string, "World");
print $pos;  # 输出: 7

uc 和 lc

uc 函数将字符串转换为大写，lc 函数将字符串转换为小写。

my $string = "Hello, World!";
my $upper = uc($string);
my $lower = lc($string);
print $upper;  # 输出: HELLO, WORLD!
print $lower;  # 输出: hello, world!

数组处理函数

push

push 函数将一个或多个元素添加到数组的末尾。

my @array = (1, 2, 3);
push(@array, 4, 5);
print "@array";  # 输出: 1 2 3 4 5

pop

pop 函数从数组末尾移除一个元素，并返回该元素。

my @array = (1, 2, 3);
my $last = pop(@array);
print $last;  # 输出: 3
print "@array";  # 输出: 1 2

shift

shift 函数从数组的开头移除一个元素，并返回该元素。

my @array = (1, 2, 3);
my $first = shift(@array);
print $first;  # 输出: 1
print "@array";  # 输出: 2 3

unshift

unshift 函数将一个或多个元素添加到数组的开头。

my @array = (1, 2, 3);
unshift(@array, 0);
print "@array";  # 输出: 0 1 2 3

splice

splice 函数用于插入、删除或替换数组中的元素。它可以接受五个参数：数组引用、开始位置、删除元素数量、插入元素列表（可选）。

my @array = (1, 2, 3, 4, 5);
splice(@array, 2, 2, 8, 9);  # 从位置2开始删除2个元素，并插入8和9
print "@array";  # 输出: 1 2 8 9 5

哈希表处理函数

keys

keys 函数返回哈希表的所有键组成的列表。

my %hash = (
    name => "Alice",
    age => 25,
    city => "New York"
);

my @keys = keys(%hash);
print "@keys";  # 输出: name age city

values

values 函数返回哈希表的所有值组成的列表。

my %hash = (
    name => "Alice",
    age => 25,
    city => "New York"
);

my @values = values(%hash);
print "@values";  # 输出: Alice 25 New York

each

each 函数用于遍历哈希表中的键值对。每次调用返回一对键和值，直到所有键值对都被遍历完。

// www.javascriptcn.com code example
my %hash = (
    name => "Alice",
    age => 25,
    city => "New York"
);

while (my ($key, $value) = each(%hash)) {
    print "$key: $value\n";
}
# 输出:
# name: Alice
# age: 25
# city: New York

文件操作函数

open

open 函数用于打开文件。它接受两个参数：文件句柄和文件名。

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

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

close($fh);

close

close 函数用于关闭文件句柄。

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

# 处理文件内容...

close($fh);

print

print 函数用于向文件或标准输出打印内容。

open(my $fh, '>', 'output.txt') or die "Could not open file: $!";

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

close($fh);

seek

seek 函数用于移动文件指针的位置。它接受三个参数：文件句柄、偏移量和位置模式。

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

seek($fh, 0, 0);  # 移动到文件开头
my $line = <$fh>;
chomp $line;
print $line;

close($fh);

条件和循环控制

if 和 unless

if 和 unless 语句用于条件判断。

my $age = 18;

if ($age >= 18) {
    print "You are an adult.\n";
} else {
    print "You are a minor.\n";
}

for 和 foreach

for 和 foreach 循环用于遍历数组或执行固定次数的操作。

// www.javascriptcn.com code example
my @numbers = (1..5);

for (my $i = 0; $i < scalar(@numbers); $i++) {
    print "$numbers[$i]\n";
}

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

while 和 until

while 和 until 循环用于在条件满足时重复执行代码块。

// www.javascriptcn.com code example
my $count = 0;

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

$count = 0;

until ($count == 5) {
    print "$count\n";
    $count++;
}

错误处理

die

die 函数用于生成错误消息并终止程序运行。

open(my $fh, '<', 'nonexistent.txt') or die "Could not open file: $!";

warn

warn 函数用于生成警告信息，但不会终止程序运行。

my $file = 'file.txt';

unless (-e $file) {
    warn "File '$file' does not exist.";
}

以上是部分常用的 Perl 内置函数的介绍。Perl 提供了丰富的函数库，通过熟练掌握这些函数，可以大大提高编程效率和代码质量。