Board logo

标题: [问题求助] 字符串替换的代码用perl如何实现 [打印本页]

作者: netdzb    时间: 2020-4-19 18:56     标题: 字符串替换的代码用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的脚本也是可以实现的。
思路是逐行读入文本内容,判断行内是否存在 ---> ,
存在的话,就把行内的.替换成,
不存在这个 ---> 标志的话,就跳过这行继续往下读。
作者: 523066680    时间: 2021-4-16 23:40

"判断行内是否存在 --->"
也没看到python脚本里面有做这个判断呀,如果不做判断就全局替换呗
s/./,/g;
作者: 523066680    时间: 2021-4-16 23:46

  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 );
复制代码





欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2