在perl中移动目录

我试图在ubuntu的同一卷中使用perl移动目录

我在Perl中使用了move（File:：Copy）命令，如下所示

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

费用是$dir1将在移动后置于$dir2之下。但是出现了一个错误，说“是一个目录”

但当我使用系统mv时，它工作得非常好

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

---

我搜索了谷歌，了解到移动应该像linux？中的mv一样工作？。有什么想法吗？

如果要移动

/dir2

下的目录

/dir1

，请按如下方式调用move：

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

我认为你在做：

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

---

因为

/dir2

已经存在而抱怨。

谢谢你的回答。我要试试这个。我的印象是SystemMV和PerlMove的行为完全相同。看起来有一些用法上的差异！。所有这七个

/

都是无用的！没有它们，我觉得这东西很奇怪，但谢谢。我很高兴只有7:）这个我试过了。看起来rmove正在复制，然后删除原件。太慢了，不符合我的目的。

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