字符串替换的代码用perl如何实现

netdzb

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. 
    
12. for t in timeline:
    
13.         newstr = t.replace('.',',')
    
14.         print newstr

复制代码

我用python替换成功了，这个perl的脚本也是可以实现的。
思路是逐行读入文本内容，判断行内是否存在 ---> ,
存在的话，就把行内的.替换成,
不存在这个 ---> 标志的话，就跳过这行继续往下读。

523066680

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

523066680

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. 
    
15. grep {
    
16.     s/\./,/g if /--->/;
    
17.     say $_;
    
18. } split( "\n", $text );
    

复制代码