Как преобразовать .txt файл подзаголовка в .srt формат?

Какой предназначенный Thorsten является чем-то вроде этого:

#!/usr/bin/perl
use strict;
use warnings FATAL => qw(all);

my $END = '!!ZZ_END';
my $LastTitleDuration = 5;

my $count = 1;
my $line = <STDIN>;
chomp $line;
my $next = <STDIN>;
while ($line) {
    $next = lastSubtitle($line) if !$next;
    last if !$next;
    chomp $next;
    if (!($next =~ m/^\d\d:\d\d:\d\d:.+/)) { 
        print STDERR 'Skipping bad data at line '.($count+1).":\n$line\n";
        $next = <STDIN>;
        next;
    }
    printf STDOUT
        "%d\r\n%s,100 --> %s,000\r\n%s\r\n\r\n",
        $count++,
        substr($line, 0, 8),
        substr($next, 0, 8),
        substr($line, 9)
    ;
} continue {
    $line = $next;
    $next = <STDIN>;
}

sub lastSubtitle {
    my $line = shift;
    $line =~ /^(\d\d:\d\d:)(\d\d):(.+)/;
    return 0 if $3 eq $END;
    return sprintf("$1%2d:$END", $2 + $LastTitleDuration);
} 

Когда я подаю Ваши демонстрационные данные в это, я добираюсь:

1
00:00:44,100 --> 00:01:01,000
" Myślę, więc jestem".|Kartezjusz, 1596-1650

2
00:01:01,100 --> 00:01:06,000
Trzynaste Pietro

3
00:01:06,100 --> 00:01:10,000
Podobno niewiedza uszczęśliwia.

4
00:01:10,100 --> 00:01:13,000
Po raz pierwszy w życiu|zgadzam się z tym.

5
00:01:13,100 --> 00:01:15,000
Wolałbym...

6
00:01:15,100 --> 00:01:19,000
nigdy nie odkryć|tej straszliwej prawdy.

7
00:01:19,100 --> 00:01:24,000
Teraz już wiem...

Несколько точек:

• Подзаголовки на самом деле запускают 1/10-ю секунду, позднюю, таким образом, они не накладываются, и потому что я был слишком ленив для добавления в некоторой математике, включающей вторую метку времени. Они затем остаются до 1/10-й секунды перед следующим заголовком.

• Последний заголовок не ложится спать для $LastTitleDuration (5 секунд).

• Я использовал окончания строки CRLF согласно статье Википедии SupRip, хотя это не может быть необходимо.

• Это предполагает, что первая строка входа не уродлива. Кроме того, они проверяются, и об ошибках сообщают stdout, таким образом:

  readAlongToSRT.pl < readAlong.txt > whatever.srt
  

  Должен создать файл, но все еще распечатать ошибки на экран.

• Обработка остановится в пустой строке.

• См. комментарий terdon ниже ре: возможное значение | в содержании подзаголовка. Можно хотеть вставить $line =~ s/|/\r\n/g; перед printf STDOUT строка.

Это взяло меня 20 минут и единственные данные тестирования, которые я имел, были те 7 строк, не рассчитывайте на них являющийся прекрасным. Если существуют когда-нибудь разрывы строки в подзаголовках, которые вызовут проблему. Я предположил, что нет; если это так, я предлагаю, чтобы Вы удалили их из входа сначала вместо того, чтобы пытаться иметь дело с ними здесь.