我有一个相当简单的 perl 脚本,归结为
use warnings; use strict;
use File::Copy;
# ... some uninteressing things such as
# assigning variables etc ...
move($dir_from, $dir_to) or die "could not move $dir_from to $dir_to";
# ... more uninteresting things ...
$dir_1
如果并且$dir_2
在同一个驱动器上,这似乎有效。但是,一旦我尝试跨驱动器移动目录,它就不起作用了。不幸的是,我在File::Copy
. 事实上,文档甚至指出
如果可能, move() 将简单地重命名文件。否则,它将文件复制到新位置并删除原始文件。
有人可以确认我的“问题”确实与我的假设有关,还是有其他原因?