16、现代Perl编程：模块、分发与通用方法全解析

现代Perl编程：模块、分发与通用方法全解析

1. 文件操作基础

在Perl中，有一些实用的文件操作符和函数。例如， -r 操作符可判断当前用户是否有读取操作数指定文件的权限，若有则返回真值； -z 操作符用于判断操作数是否为非空文件，若是则返回真值。从Perl 5.10.1开始，可以使用 perldo 命令查找这些操作符的文档，如 perldo -f -r 。

重命名文件或在目录间移动文件可使用 rename 内置函数，它接受两个操作数，分别是文件的旧名和新名：

use autodie;
rename 'death_star.txt', 'carbon_sink.txt';
# 或者更时髦的写法
rename 'death_star.txt' => 'carbon_sink.txt';

Perl核心没有内置的文件复制函数，但 File::Copy 模块提供了 copy() 和 move() 函数。使用 unlink 函数可删除一个或多个文件。这些函数和内置函数在成功时返回真值，出错时会设置 $! 。

Path::Class 模块以跨平台的方式提供了检查文件属性和完全删除文件的便捷方法。此外，Perl允许改变当前工作目录，默认情况下，当