prevod titulku do jineho formatu

[Petr Kolar]

perl srt2sub.pl soubor.srt > vystup.sub

S pozdravem
--
                          ***  Petr Kolar  ***
   Department of Applied Informatics, Technical University of Liberec
                Halkova 6, 461 17 Liberec, Czech Republic
             Phone: +420-48-535-3673   Fax: +420-48-535-3696
      E-mail: Petr.Kolar na vslib.cz   http://www.kai.vslib.cz/~kolar/
------------- další část ---------------
#!/usr/bin/perl

while (<>) {
  s/\r$//;
  next if /^\d+$/;
  if (/^(\d\d):(\d\d):(\d\d),(\d\d\d) --> (\d\d):(\d\d):(\d\d),(\d\d\d)/) {
    $from=(($1*60)+$2)*60+$3+$4/1000.0;
    $to=(($5*60)+$6)*60+$7+$8/1000.0;
  } elsif (/^(.*\S)\s*$/) {
    if ($text eq '') {
      $text=$1;
    } else {
      $text .= "|" . $1;
    }
  } elsif (/^\s*$/) {
    if ($from ne '' && $to ne '' && $text ne '') {
      print "{", int(25*$from)-6, "}{", int(25*$to)-6, "}", $text, "\n";
    }
    $from='';
    $to='';
    $text ='';
  }
}
if ($from ne '' && $to ne '' && $text ne '') {
  print "{", int(25*$from)-6, "}{", int(25*$to)-6, "}", $text, "\n";
}