qq 面试题 用perl 写

 

 这是群里发的，俺正学习perl ，就想用perl ，尝试的写，

第一次写的 如下

 

，群里人提示 用rename，俺就接着改

第二次写的 如下：

 被批的一文不值，垃圾的不行，最后提示子目录问题 让用File::Find模块，俺看小骆驼　找到了，但人家没讲。