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

wu_lin_326 2015-12-15 10:46:03
如题

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

小弟初学,线等源码,谢谢
...全文
306 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
番茄蛋饭 2016-01-02
  • 打赏
  • 举报
回复
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))
iokok 2016-01-01
  • 打赏
  • 举报
回复
for x in os.walk('dir') 剩下自己写吧
  • 打赏
  • 举报
回复
在线等源码,我就呵呵了,你就不能自己稍微动一下脑子吗?

37,743

社区成员

发帖
与我相关
我的任务
社区描述
JavaScript,VBScript,AngleScript,ActionScript,Shell,Perl,Ruby,Lua,Tcl,Scala,MaxScript 等脚本语言交流。
社区管理员
  • 脚本语言(Perl/Python)社区
  • WuKongSecurity@BOB
加入社区
  • 近7日
  • 近30日
  • 至今

试试用AI创作助手写篇文章吧