<!--以下代码来自第一个rdf文件，使用xmlformat1.04工具实现自动格式化后的样子，源文件只有一行，可读性很差
关于xmlformat的更多信息，请访问http://www.kitebird.com/software/xmlformat/
-->
<resource xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="script.xsd">
 <description>
  <titles v="C:\Downloads\(经典大片)毕业生\毕业生(1)"/>
  <compiler/>
  <reviser/>
  <creator/>
  <abstract/>
 </description>
 <script>
  <sn>
   <s id="_1" b="8660" e="12220" v="Ladies and gentlemen, we're about to begin our descent into Los Angeles.">
    <t l="zh" v="各位乘客,飞机即将降落洛衫机"/>
    <n l="zh" v=""/>
    <ws/>
   </s>
   <s id="_2" b="12780" e="16060" v="The sound you just heard is the landing gear locking into place.">
    <t l="zh" v="大家刚才听到的是起落架的声音"/>
    <n l="zh" v=""/>
    <ws/>
   </s>
   <s id="_3" b="16420" e="19860" v="Los angeles weather is clear,the temperature is 72.">
    <t l="zh" v="洛衫机天气晴朗,温度是华氏72度"/>
    <n l="zh" v=""/>
    <ws/>
   </s>
   <s id="_4" b="20260" e="23780" v="We expect to make our 4-hour and 18-minute flight on schedule.">
    <t l="zh" v="飞机行程如预计的一样,历时4小时18分钟"/>
    <n l="zh" v=""/>
    <ws/>
   </s>
.....................
  </sn>
 </script>
</resource>

# 以下代码来自我用程序处理过后的字幕文件

1
00:00:08,660 --> 00:00:12,220
各位乘客,飞机即将降落洛衫机

2
00:00:12,780 --> 00:00:16,060
大家刚才听到的是起落架的声音

3
00:00:16,420 --> 00:00:19,860
洛衫机天气晴朗,温度是华氏72度

#!/usr/bin/perl -w 

# rdf2srt.pl
# Author: yangfang 
# Mail: yangfang at fudan.edu.cn 
# Data: 2008-1-21 
# Discription: Covert rdb to srt format 

#!/usr/bin/perl -w

use XML::Simple; 
use Data::Dumper;
use File::Basename;

&main();

sub format_time{                              # 将毫秒时间化成hh:mm:ss,ms的格式
        my ($msec )= @_;
        my $hour = $msec  / 3600000;
        my $remain = $msec % 3600000;
        my $minute = $remain / 60000;
        $remain = $msec % 60000;
        my $second = $remain / 1000;
        my $result = sprintf("%02d:%02d:%02d,%03d", $hour,$minute,$second,$remain%1000);
        return $result;
}

sub main{
        my ($file_name) = @ARGV;
        my $xml = new XML::Simple;
        my $data = $xml->XMLin("$file_name");
        #print Dumper($data);
        
        my $basename = basename($file_name,'avi');
        my $dirname = dirname($file_name);
        open(ENG_FILE,">:encoding(iso-8859-7)", "$dirname/$basename.eng.srt"); 
        open(CHN_FILE,">:encoding(gbk)", "$dirname/$basename.chn.srt");      # 因为播放器用系统默认编码打开文件，这里写文件需要指定成系统默认编码GBK，否则会变成UTF8的中文，还会在执行程序时报宽字符集警告。
        foreach my $even(sort {substr($a, 1) <=> substr($b, 1)} keys %{$data->{script}->{sn}->{s}}) {
                my $begin_time = format_time($data->{script}->{sn}->{s}->{$even}->{b});
                my $end_time = format_time($data->{script}->{sn}->{s}->{$even}->{e});
                my $en_sub = $data->{script}->{sn}->{s}->{$even}->{v};
                my $ch_sub = $data->{script}->{sn}->{s}->{$even}->{t}->{v};
                
                my $index = substr($even,1);
                print ENG_FILE "$index\n$begin_time --> $end_time\n$en_sub\n\n";
                print CHN_FILE "$index\n$begin_time --> $end_time\n$ch_sub\n\n";
        }
        close(ENG_FILE);
        close(CHN_FILE);
}