523066680

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

523066680

use Modern::Perl;
my $text = <<TEXT;
00:00:23.844 ---> 00:00:26.334
00:00:26.444 ---> 00:00:29.614
00:00:34.424 ---> 00:00:39.372
00:00:44.216 ---> 00:00:46.446
00:00:47.151 ---> 00:00:50.556
00:00:50.672 ---> 00:00:53.348
00:00:54.022 ---> 00:00:55.881
00:00:56.045 ---> 00:00:58.634
00:00:58.748 ---> 00:01:01.855
something. -- else.
TEXT

grep { 
    s/\./,/g if /--->/; 
    say $_;
} split( "\n", $text );
复制代码