在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已经存在。

Answer 2

use File::Copy::Recursive;
rmove('foo/bar/baz', '/etc/');