Converts Timed Text subtitles to SRT format

timedtext-to-srt.pl

#!perl
use v5.16;
use warnings;
use Subtitles::SRT::File;
use HTML::Entities;
use XML::Simple;

my $srt=Subtitles::SRT::File->new;

my $xml=XMLin shift;

for(@{$xml->{text}}) {
  my $start = $_->{start};
	my $end   = $start + $_->{dur};
	my $text  = $_->{content};
	$text =~ s/amp;//g; #patterns like <&#ddd> are encoded <&amp;ddd> so just remove amp;
	$text = decode_entities $text;
	$srt->add_subtitle({start => $start, end =>$end, text => $text});
}

print $srt->to_string;