perl - 我将如何在 Perl 中模拟 xcopy 命令？

Question

Perl 对我来说是一门新语言。我一直在写批处理文件。我有一个作为批处理文件编写的脚本，我试图将其转换为 Perl。这是我的批处理文件：

    @echo off
    :LOOP
    echo File Copy Started 
    xcopy /s /Y  "Source" "Destination"
    echo File Copy Completed 
    TIMEOUT /T 80
    goto :LOOP

所以我正在尝试弄清楚 Perl 中是否有类似于 xcopy 的命令，或者我是否需要找出其他方法来在 Pearl 中创建相同的函数。任何帮助都会很棒。谢谢。

Answer 1

正如 ikegami 在评论中指出的那样，没有一个 Perl 命令可以执行此xcopy操作。虽然您可以编写一些代码来重新实现在 Perl 中的递归文件复制（例如，按照建议使用File::Find或File::Find::Rule和File::Copy），但更简单的解决方案可能是xcopy从 Perl调用system：

system qw(xcopy /s /Y), $source, $destination;

编辑：或者只使用CPAN 中的File::Copy::Recursive。

Answer 2

有这个，

• 文件::复制
• 文件::查找::规则

您可以使用它们自己实现它，但是对于一种可能有用的语言来说是新手：

system qw(xcopy /s /Y), $source, $destination;

但是，如果您正在编写性能优化代码，则不应使用它。