解决方法
我想你想要的是
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.