本文共 3899 字，大约阅读时间需要 12 分钟。

读取与处理文件

在 Perl 中处理文件是开发中常见的操作之一。本节将介绍几种常用的读取文件方法，以及文件路径处理的技巧。

读取文件（简单方法）

以下是一个简单的读取文件并将内容一次性加载到数组中的方法：

$fdr = open("<$file") or die $!; # 打开文件
@lines = <$fdr>;               # 读取所有内容到数组
close($fdr);                    # 释放资源

这种方法适用于逐行处理文件时不需要显式循环的情况。

读取文件（逐行处理）

如果需要对每一行进行处理，可以使用 while 循环：

$fdr = open("<$file") or die $!;
while (<$fdr>) {
    # 处理当前行
    my $line = $_;
    # 可以根据需要进行修改或输出
    say $line;
}
close($fdr);

这种方法适合需要对每一行单独处理的场景。

读取路径下的文件

要读取特定路径下的所有文件，可以使用 readdir 函数结合 glob 来获取文件列表：

my $dir = "/bld/xyz/toolgeneric/328";
@files = glob("$dir/*/*");

这里，glob 函数会返回匹配路径下的所有文件。

删除文件或文件夹（基于时间）

如果需要删除一些旧文件或文件夹，可以参考以下脚本。脚本会检查文件的创建时间，删除超过一年前的文件。

#!/opt/exp/bin/perl -w
use File::Path;
my $subdir = "/home/coolclf/rje/apaloads";
@files = glob("$subdir/*");
foreach my $file (@files) {
    my $mtime = (stat($file))[9]; # 获取文件创建时间
    my @t = localtime($mtime);
    my $date = sprintf("%02u/%02u/%02u %02u:%02u:%02u", $t[4] + 1, $t[3], $t[5] % 100, $t[2], $t[1], $t[0]);
    print "$date\n";
    if ($t[5] % 100 < 13) {
        print "line15: $file\n";
        rmtree($file); # 删除文件夹
    }
}

路径遍历（递归）

以下是一个递归遍历路径的示例，能够深入访问文件夹中的所有文件和子文件夹：

#!/opt/exp/bin/perl -w
use strict;
use warnings;
sub lsr {
    my $cwd = shift; # 获取当前工作目录
    local *DH;       # 定义一个目录句柄
    if (!opendir(DH, $cwd)) {
        warn "无法打开目录 $cwd: $! $^E";
        return;
    }
    foreach (readdir(DH)) {
        next if $_ eq '.' || $_ eq '..'; # 跳过当前目录和上级目录
        my $file = $cwd . '/' . $_;
        if (!-l $file && -d $_) {
            $file .= '/'; # 确保是路径
            lsr($file);    # 递归处理子文件夹
        }
        # 可以在这里处理文件或文件夹
        process($file, $cwd);
    }
    closedir(DH);
}
my ($size, $dircnt, $filecnt) = (0, 0, 0);
sub process($$) {
    my $file = shift; # 接收文件路径
    if (substr($file, -1, 1) eq '/') {
        $dircnt++;
    } else {
        $filecnt++;
        $size += -s $file; # 计算文件大小
    }
}
lsr('.'); # 从当前目录开始递归
print "总共有 $filecnt 个文件，$dircnt 个目录，总大小 $size 字节。\n";

关于输入输出操作

在 Perl 中，处理输入输出时，通常会使用不同的方式来读取和写入文件。为了避免数据丢失或覆写，建议分别使用不同的文件句柄。例如：

open(my $fh, '<', '1-2.txt') or die $!; # 读取文件
open(my $fw, '>', 'output.txt') or die $!; # 写入文件
while ($line = <$fh>) {
    print $fw $line;
}
close($fh);
close($fw);

这种方式避免了读写同一文件可能出现的数据丢失问题。

命令行参数处理

如果需要从命令行读取参数，可以使用 ARGV 变量来获取：

my $file = $ARGV[0]; # 获取第一个命令行参数
open(my $fh, '<', $file) or die $!;
while ($line = <$fh>) {
    # 处理每一行
    if ($line =~ /^bjmcl0(\d\d)/) {
        if ($1 >= 33 && $1 <= 63) {
            $line = "#$line";
        }
    }
    say $line;
}

文件遍历（子目录）

以下是一个遍历子目录文件的示例：

#!/opt/exp/bin/perl -w
my $dir = "/bld/xyz/toolgeneric/328";
@files = glob("$dir/*/*");
foreach my $file (@files) {
    print "line10: $file\n";
    open(my $fh, $file) or next;
    while ($line = <$fh>) {
        if ($line =~ /xyz/) {
            print "xyz line17: $file: $line\n";
        }
    }
    close($fh);
}

特殊变量（INPLACE_EDIT）

以下是一个使用 $^I 变量的示例，用于在读写同一文件时临时备份文件：

#!/usr/bin/perl -w
use strict;
$^I = '.bak'; # 设置备份扩展名
while (<$ARGV>) {
    s/felixzh1//g;
    print;
}

文件大小与目录统计（递归）

以下是一个统计当前目录中文件、子目录和总大小的示例：

#!/opt/exp/bin/perl -w
use strict;
use warnings;
sub lsr {
    my $cwd = shift;
    local *DH;
    if (!opendir(DH, $cwd)) {
        warn "无法打开目录 $cwd: $! $^E";
        return;
    }
    $size = 0;
    $dircnt = 0;
    $filecnt = 0;
    foreach (readdir(DH)) {
        next if $_ eq '.' || $_ eq '..';
        my $file = $cwd . '/' . $_;
        if (!-l $file && -d $_) {
            $file .= '/'; # 确保是路径
            lsr($file, $cwd);
        }
        process($file, $cwd);
    }
    closedir(DH);
}
my ($size, $dircnt, $filecnt) = (0, 0, 0);
sub process($$) {
    my $file = shift;
    if (substr($file, -1, 1) eq '/') {
        $dircnt++;
    } else {
        $filecnt++;
        $size += -s $file;
    }
}
lsr('.');
print "$filecnt 文件，$dircnt 目录，总大小 $size 字节。\n";

以上是一些常用的 Perl 文件操作示例，涵盖了读取、写入、删除、路径遍历等功能。通过合理组合这些操作，可以应对各种文件处理需求。

转载地址：http://qwfx.baihongyu.com/