[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] 字符串替换的代码用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的脚本也是可以实现的。
思路是逐行读入文本内容,判断行内是否存在 ---> ,
存在的话,就把行内的.替换成,
不存在这个 ---> 标志的话,就跳过这行继续往下读。

"判断行内是否存在 --->"
也没看到python脚本里面有做这个判断呀,如果不做判断就全局替换呗
s/./,/g;

TOP

  1. use Modern::Perl;
  2. my $text = <<TEXT;
  3. 00:00:23.844 ---> 00:00:26.334
  4. 00:00:26.444 ---> 00:00:29.614
  5. 00:00:34.424 ---> 00:00:39.372
  6. 00:00:44.216 ---> 00:00:46.446
  7. 00:00:47.151 ---> 00:00:50.556
  8. 00:00:50.672 ---> 00:00:53.348
  9. 00:00:54.022 ---> 00:00:55.881
  10. 00:00:56.045 ---> 00:00:58.634
  11. 00:00:58.748 ---> 00:01:01.855
  12. something. -- else.
  13. TEXT
  14. grep {
  15.     s/\./,/g if /--->/;
  16.     say $_;
  17. } split( "\n", $text );
复制代码

TOP

返回列表