Perl 复制/重新命名/删除档案

Sam Tang

11 years ago

在 Perl Scripts 里面除了可以用系统指令进行档案处理外, 也可以用 Perl 直接实现, 做法是这样:

复制档案

Perl 没有内建函式可以复制档案, 但可以透过加载 File::Copy 实现:

use File::Copy;
copy $old_file, $new_file;

1 2	use File::Copy; copy $old_file, $new_file;

上面的语句会将 $old_file 复制到 $new_file.

重新命名档案

虽然 Perl 内建有 rename 函式可以用, 但它在某些档案系统不能运作, 所以用 File::Copy 实现会更好:

use File::Copy;
move $old_file, $new_file;

1 2	use File::Copy; move $old_file, $new_file;

move 的用法跟 Unix 的 mv 很相似, 以上语句会将 $old_file 重新命名为 $new_file.

删除档案

Perl 有内建删除档案的函式 unlink, 它除了可以删除一个档案外, 如果将 array 放入 unlink 使用, 会自动读 array 的内容进行删除:

unlink $file;
unlink @files;

1 2	unlink $file; unlink @files;

如果没有给予 unlink 参数, 它会自动使用 Perl 默认的 $_ 变量.