perl - 在 perl 中移动目录

Question

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

我在 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

如果你想移动 ./dir1 下的目录 ./dir2 调用 move 像这样:

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

我认为你在做:

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

提示是因为 ./dir2 已经存在。