附件为一段perl的代码,目的是复制文件夹中的文件,并且以新的名字复制到这个文件夹中的。匹配文件ora_“数字".aud,复制名字为ora_“数字".aud