perl - 在 perl 中移动目录

Question

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

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

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

预计移动后 $dir1 将位于 $dir2 之下。但是收到一个错误，说“是一个目录”。

但是当我使用 system mv 时，它可以完美运行。

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

我搜索了谷歌并了解到 move 应该与 linux 中的 mv 完全一样？有任何想法吗？

Answer 1

如果要移动调用 move./dir1下的目录，如下所示：./dir2

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

我认为你正在做：

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

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

Answer 2

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