使用perl,怎样遍历文件夹,替换文件后缀名,该怎么处理

使用perl,怎样遍历文件夹,替换文件后缀名
比如如果文件后缀名为"txt",替换为"doc"

[解决办法]
我没测试，但差不多少，你自己调试一下，至少比你的要简单！