批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖

[问题求助] 字符串替换的代码用perl如何实现

  1. text = '''00:00:23.844 ---> 00:00:26.334
  2. 00:00:26.444 ---> 00:00:29.614
  3. 00:00:34.424 ---> 00:00:39.372
  4. 00:00:44.216 ---> 00:00:46.446
  5. 00:00:47.151 ---> 00:00:50.556
  6. 00:00:50.672 ---> 00:00:53.348
  7. 00:00:54.022 ---> 00:00:55.881
  8. 00:00:56.045 ---> 00:00:58.634
  9. 00:00:58.748 ---> 00:01:01.855'''
  10. timeline = text.split('\n')
  11. for t in timeline:
  12.         newstr = t.replace('.',',')
  13.         print newstr
复制代码
我用python替换成功了,这个perl的脚本也是可以实现的。
思路是逐行读入文本内容,判断行内是否存在 ---> ,
存在的话,就把行内的.替换成,
不存在这个 ---> 标志的话,就跳过这行继续往下读。

返回列表