在 Perl Scripts 里面除了可以用系统指令进行档案处理外, 也可以用 Perl 直接实现, 做法是这样:
复制档案
Perl 没有内建函式可以复制档案, 但可以透过加载 File::Copy 实现:
|
1 2 |
use File::Copy; copy $old_file, $new_file; |
上面的语句会将 $old_file 复制到 $new_file.
重新命名档案
虽然 Perl 内建有 rename 函式可以用, 但它在某些档案系统不能运作, 所以用 File::Copy 实现会更好:
|
1 2 |
use File::Copy; move $old_file, $new_file; |
move 的用法跟 Unix 的 mv 很相似, 以上语句会将 $old_file 重新命名为 $new_file.
删除档案
Perl 有内建删除档案的函式 unlink, 它除了可以删除一个档案外, 如果将 array 放入 unlink 使用, 会自动读 array 的内容进行删除:
|
1 2 |
unlink $file; unlink @files; |
如果没有给予 unlink 参数, 它会自动使用 Perl 默认的 $_ 变量.