perl遍历文件夹改文件后缀名？

[wu_lin_326]

如题

我 /opt/ 下有许多文件夹，如xx文件、yy文件等，文件夹下有许多 .txt 的文件，需要后缀都改成 .doc文件

小弟初学，线等源码，谢谢

[人傻且呆但不萌]

在线等源码，我就呵呵了，你就不能自己稍微动一下脑子吗？

[iokok]

for x in os.walk('dir') 剩下自己写吧

[番茄蛋饭]

import os
import os.path

rootdir='d:\SocketTest'

for path, dirnames, filenames in os.walk(rootdir):
    for filename in filenames:
        portion = os.path.splitext(filename)
        if portion[1] == '.txt':
            newname = portion[0]+'.csv'
            os.rename(os.path.join(path,filename),os.path.join(path,newname))