在perl中移动目录

Question

我正在尝试使用perl在ubuntu中的相同卷内移动目录.

我在Perl中使用了move(File :: Copy)命令,如下所示

move($dir1, $dir2);.  # Doesn't work.

预计移动后$ dir1将位于$ dir2之下.但得到一个错误,说"是一个目录".

但是当我使用系统mv时,它可以很好地工作.

system("mv $dir1 $dir2"); #This works!.

我搜索谷歌并了解该移动应该像linux中的mv一样工作吗？有任何想法吗？

Answer 1

如果你想移动目录./dir1下的./dir2调用移动,如下所示:

move("./dir1", "./dir2/dir1");

我想你在做:

move("./dir1", "./dir2/");

抱怨因为./dir2已经存在.