8、Perl 文件系统遍历与管理实用指南

Perl 文件系统遍历与管理实用指南

1. 文件读取策略与 Perl 的作用

在处理文件时，有时候需要逐字节读取而不使用常规的缓冲机制。当文件在位置 X 处损坏时，我们不希望浪费时间等待标准库例程尝试读取位置 X+1、X+2、X+3 等位置的字节，因为这是它们通常预取操作的一部分。我们希望代码能立即停止尝试读取该文件。一般来说，为了性能考虑，文件读取通常会一次获取整个数据块，但在这里这种方式并不可取，因为这意味着笔记本电脑每次发现损坏文件时都会长时间发出可怕的噪音。

在实际应用中，运行了一个脚本一整晚后，在总共 16000 个文件中发现了 95 个损坏文件。幸运的是，这些文件都不是当前相关的重要文件。通过备份并移动好的文件，Perl 成功解决了问题。

2. 使用 File::Find 模块遍历文件系统

Perl 提供了一个名为 File::Find 的模块，它允许 Perl 模拟 Unix 的 find 命令。开始使用这个模块的最简单方法是使用 find2perl 命令为你生成原型 Perl 代码。不过需要注意的是， find2perl 在非 Unix 的 Perl 端口上并不总是易于使用。例如，MacOS 用户要么需要 Macintosh Programmer’s Workshop (MPW) 来运行它，要么应该修改代码以从对话框中获取 @ARGV 。以下是一段来自 Chris Nandor 的代码片段：

@ARGV = @ARGV ? @A