perl - 如何复制目录但忽略 Perl 中的某些文件？

Question

在我的 Perl 代码中，我需要将目录从一个位置复制到同一主机上的另一个位置，不包括某些文件/模式(例如 *.log、./myDir/abc.cl)。在 Perl 中跨所有平台执行此操作的最佳方式是什么？在 Windows 上，xcopy 就是这样一种解决方案。在 unix 平台上，有没有办法在 Perl 中做到这一点？

Answer 1

我想你正在寻找 rsync .它不是 Perl，但它会比你在 Perl 中制作的任何东西都要好得多:

% rsync --exclude='*.log' --exclude='./myDir/abc.cl' SOURCE DEST

如果你有一堆模式，你可以把它们都放在一个文件中:

*.log
./myDir/abc.cl

现在忽略文件中的所有模式:

% rsync --exclude-from=do_not_sync.txt SOURCE DEST