bin/sync2yaml.pl

   1 #!/usr/bin/perl
   2
   3 # ./bin/sync2yaml.pl media/_editing/sync.txt > media/_editing/video.srt.yaml
   4
   5 use warnings;
   6 use strict;
   7
   8 use YAML;
   9
  10 my @subtitles;
  11
  12 my $nr = 0;
  13
  14 while(<>) {
  15         chomp;
  16         if ( m{(\d+):(\d+)\s+(.+)} ) {
  17                 my $t = $1 * 60 + $2;
  18                 $nr++;
  19                 push @subtitles, [ $t, $t+3, "[$nr] $3" ];
  20         } elsif ( m{(\d+\.\d+)\s+(\d+\.\d+)\s+(.+)} ) {
  21                 push @subtitles, [ $1, $2, "[$nr] $3" ];
  22         } else {
  23                 die "unknown format: $_";
  24         }
  25
  26 }
  27
  28 print Dump @subtitles;