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

Rank: 5Rank: 5

帖子
909 
积分
1215 
技术
3  
捐助
0  
注册时间
2018-1-17 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 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. 

  12. for t in timeline:

  13.         newstr = t.replace('.',',')

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

523066680

Rank: 7Rank: 7Rank: 7

帖子
3151 
积分
6455 
技术
317  
捐助
70  
注册时间
2008-8-3 
2楼
发表于 2021-4-16 23:40 | 只看该作者
"判断行内是否存在 --->"
也没看到python脚本里面有做这个判断呀，如果不做判断就全局替换呗
s/./,/g;
FuniCode 编程论坛

TOP

523066680

Rank: 7Rank: 7Rank: 7

帖子
3151 
积分
6455 
技术
317  
捐助
70  
注册时间
2008-8-3 
3楼
发表于 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. 

  15. grep { 

  16.     s/\./,/g if /--->/; 

  17.     say $_;

  18. } split( "\n", $text );
复制代码
FuniCode 编程论坛

TOP

返回列表