用Perl File :: Copy函数覆盖只读文件

Question

我需要在Perl中复制只读文件。我尝试使用Perl :: Copy函数，但它在文件已经存在并且不可写的情况下失败。

是否有一个我可以给复制功能的力量参数？

我想避免更改文件的权限或在复制之前删除目标文件。

Answer 1

好像你是给自己的不合理要求。我认为最好的解决方法是删除复制前的目标文件，这应该是简单：

unlink $dest_file if -e $dest_file; 

Answer 2

你不能覆盖file.in出允许更改的Perl力没有充分的功能您覆盖

Answer 3

要完成罗恩回答，Perl documentation说：

副本不会覆盖只读只有文件。

这就是为什么我们需要更改权限或复制前删除文件。