perl 实用函数及使用示例391

在 Perl 中，有许多有用的函数可以帮助我们处理各种任务。本文将介绍一些常用的 Perl 实用函数，并提供示例来展示它们的用法。

1. 字符串处理函数

1.1 length

length 函数返回字符串的长度。
my $str = "Hello, world!";
my $length = length($str);
print "$length"; # 输出：13

1.2 substr

substr 函数从字符串中提取子字符串。
my $substr = substr($str, 7, 5); # 从第 7 个字符开始，提取 5 个字符
print "$substr"; # 输出：world

1.3 uc

uc 函数将字符串转换为大写。
my $upper = uc($str);
print "$upper"; # 输出：HELLO, WORLD!

2. 数字处理函数

2.1 abs

abs 函数返回数字的绝对值。
my $abs = abs(-10);
print "$abs"; # 输出：10

2.2 int

int 函数将数字转换为整数，舍弃小数部分。
my $int = int(3.14);
print "$int"; # 输出：3

2.3 rand

rand 函数生成一个 0 到 1 之间的随机数。
my $rand = rand();
print "$rand"; # 输出一个随机数，例如：0.456789

3. 数组处理函数

3.1 @array

@array 函数将一个列表转换为一个数组。
my @array = (1, 2, 3, 4, 5);
print "@array"; # 输出：1 2 3 4 5

3.2 push

push 函数将元素推入数组的末尾。
push(@array, 6);
print "@array"; # 输出：1 2 3 4 5 6

3.3 pop

pop 函数从数组中弹出最后一个元素。
my $last_element = pop(@array);
print "$last_element"; # 输出：6
print "@array"; # 输出：1 2 3 4 5

4. 文件处理函数

4.1 open

open 函数打开一个文件，用于读写操作。
my $fh;
open($fh, '

2025-02-01

上一篇：Perl 初探：聆听语言之声

下一篇：如何使用 Perl 正则表达式进行匹配