perl - 如何复制除 Perl 中所有隐藏文件之外的目录？

Question

我有一个包含一堆文件的目录层次结构。一些目录以 . 开头.
我想将层次结构复制到其他地方，省略所有以 . 开头的文件和目录。

怎么能这样呢？

Answer 1

我想你想要的是File::Copy::Recursive的 rcopy_glob() :

rcopy_glob()

This function lets you specify a pattern suitable for perl's glob() as the first argument. Subsequently each path returned by perl's glob() gets rcopy()ied.

It returns and array whose items are array refs that contain the return value of each rcopy() call.

It forces behavior as if $File::Copy::Recursive::CPRFComp is true.