许多系统管理员出身的程序员,即使写Perl程序,也喜欢间接利用rm, cpmv 来完成文件操作。 虽然这是可行的,但是没有充分利用Perl本身的威力。本节我们学习怎样用Perl内置的函数完成此类操作。

移除

unlink 可以移除一个或者多个文件。

unlink $file;
unlink @files;

如果没有显示地给出参数,默认的参数为$_, 参见Perl 中的默认值

更多信息请参考 perldoc -f unlink.

重命名

Perl自带的函数为 rename

rename $old_name, $new_name;

File::Copy 模块中的move 函数比 rename 支持更多文件系统,因此是在某写情况下,是更好的选择。

use File::Copy qw(move);

move $old_name, $new_name;

更多文档:

perldoc -f rename.

perldoc File::Copy.

复制

Perl 中没有对应的函数来完成复制操作。通常用 File::Copy 模块中的copy 函数

use File::Copy qw(copy);

copy $old_file, $new_file;

参见: perldoc File::Copy.