18、Perl 文件操作与字符串处理全解析

assembly8low

于 2025-11-17 13:33:58 发布

阅读量4

点赞数

CC 4.0 BY-SA版权

分类专栏： Perl编程的艺术与实践文章标签： Perl 文件操作字符串处理

本文链接：https://blog.youkuaiyun.com/assembly8low/article/details/155510222

Perl编程的艺术与实践专栏收录该内容

34 篇文章 ¥499.90

订阅专栏¥69.90

会员秒杀 ¥9.9 重磅福利

超级会员免费看

Perl 文件操作与字符串处理全解析

1. 文件操作基础

在处理数据时，文件操作是非常重要的一部分。通过文件，我们可以将数据永久存储在磁盘上，避免因计算机关机而丢失数据。在进行文件操作时，主要通过文件句柄来访问文件。在程序执行时，会有三个默认的文件句柄，分别是标准输入（ STDIN ）、标准输出（ STDOUT ）和标准错误（ STDERR ）。可以使用 open() 函数打开其他文件句柄，用于读取或写入文件，并且要始终检查 open() 函数的返回值。

读取文件时，将文件句柄放在尖括号 <FILEHANDLE> 中，可在标量上下文（一次读取一行）或列表上下文（读取文件剩余的所有行直到文件末尾）中进行读取。写入文件则使用 print() 函数，默认情况下，它会写入标准输出，因此需要指定文件句柄。

下面是一个简单的文件操作示例：

open(SORT, '|-', 'perl sort2.pl');
while (my ($item, $quantity) = each %inventory) {
    if ($quantity > 1) {
        $item =~ s/(\w+)/$1s/ unless $item =~ /\w+s\b/;
    }
    print SORT "$item: $quantity\n";
}