求中英文字幕合并的perl脚本

w123456_cu

求中英文字幕合并的perl脚本， 以中文字幕的时间轴为准。

===============英文字幕==================

00:01:24,000 --> 00:01:26,700
Good morning, sir.
My last name is Walker.


00:01:26,800 --> 00:01:28,900
Yes. Mr Walker.


00:01:30,200 --> 00:01:33,800
Room 2105, South tower,
Great View.



================中文字幕===============

00:01:24,775 --> 00:01:27,590
- 早上好 先生  - 我姓Walker


00:01:28,737 --> 00:01:29,363
好的 Walker先生


00:01:29,467 --> 00:01:34,264
南阁的2015号 视野开阔的房间


=====================================



======================希望合并成 ===========

00:01:24,775 --> 00:01:27,590
- 早上好 先生  - 我姓Walker
Good morning, sir.  My last name is Walker.


00:01:28,737 --> 00:01:29,363
好的 Walker先生
Yes. Mr Walker.


00:01:29,467 --> 00:01:34,264
南阁的2015号 视野开阔的房间
Room 2105, South tower, Great View.

gaoyang636

我觉得用hash应该比较简单的就能实现

kk861123

回复 1# w123456_cu


   没看出字符串方面的对应关系，对着行来写了一个，基本可以实现

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. open(CH,"<","chinese.txt") or die($!);
   
6. open(EN,"<","english.txt") or die($!);
   
7. my %ch;
   
8. {
   
9.     local $/ = "\n\n\n";
   
10.     while (<CH>) {
    
11.         chomp;
    
12.         print "$_\n";
    
13.         $_ = <EN>;
    
14.         s/^.*?\n//xms;
    
15.         print;
    
16.     }
    
17. }
    
18. close(CH);
    
19. close(EN);

复制代码

w123456_cu

谢谢 kk861123 的思路

buypro9

比较靠谱的是按以中文字幕的时间轴为准


常见的字幕是有的有英文没中文的。不能简单合并。