1
00:00:09,855 --> 00:00:14,724
Britain was an object of desire.
2
00:00:26,295 --> 00:00:31,847
Tacitus declared it worth the conquest,
3
00:00:32,015 --> 00:00:35,803
the best compliment
that could occur to a Roman.
如果以句号为分割,把对应的时间合并起来,最后得到下面的结果:
1
00:00:09,724
Britain was an object of desire.
2
00:00:26,295 --> 00:00:35,803
Tacitus declared it worth the conquest,
the best compliment
that could occur to a Roman.
————————————————————————————————————————————————
?
#!/usr/bin/perl
#ans.pl
my $file;
while (<>){s/^/s+$//;$file.=$_};
my @data=split//./,$file;
for (@data){
??? /.*(^/d.*>.*/d$)/sm;? #由于@data中是按分段文本存放,所以需要用到多行匹配,/s表示匹配/n,/m多行匹配
??? my $time=$1;??? s/^/d+:.*/d$//gm;???? #删除时间行??? s/^/d+/n//gm;?????????? #删除数目行??? s/$/./;??????????????????????? #加上点号??? s//n+//n/g;???????????????? #删除空行??? print ++$num,"/n",$time,$_,"/n";}=====================perl? ans.pl? yourfile.txt