|
|
|
@ -4,7 +4,7 @@ use strict;
|
|
|
|
|
use warnings; |
|
|
|
|
use utf8; |
|
|
|
|
|
|
|
|
|
use Subtitle::Utils qw(:string); |
|
|
|
|
use Subtitle::Utils qw(:string round); |
|
|
|
|
|
|
|
|
|
use base 'Subtitle::BASE'; |
|
|
|
|
|
|
|
|
@ -80,6 +80,22 @@ sub parse {
|
|
|
|
|
return scalar @{ $self->{events} }; |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
sub build { |
|
|
|
|
my ($self) = @_; |
|
|
|
|
my @lines; |
|
|
|
|
|
|
|
|
|
push @lines, sprintf "{1}{1}%.3f", $self->{fps}; |
|
|
|
|
foreach my $e (@{ $self->{events} }) { |
|
|
|
|
my $show = round($e->{timing}->[0] * $self->{fps}, 0); |
|
|
|
|
my $hide = round($e->{timing}->[1] * $self->{fps}, 0); |
|
|
|
|
my $text = ($e->{text} =~ s{$self->{eol}}{|}gr); |
|
|
|
|
push @lines, sprintf "{%d}{%d}%s", $show, $hide, $text; |
|
|
|
|
} |
|
|
|
|
push @lines, ""; |
|
|
|
|
|
|
|
|
|
return join($self->{eol} => @lines); |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
1; |
|
|
|
|
|
|
|
|
|
=pod |
|
|
|
@ -110,4 +126,10 @@ Recognized keys are:
|
|
|
|
|
Parse subtitle from array of lines. |
|
|
|
|
Returns parsed events count on success, -1 on error |
|
|
|
|
|
|
|
|
|
=head2 C<build> |
|
|
|
|
|
|
|
|
|
my $text = $msub->build(); |
|
|
|
|
|
|
|
|
|
Builds parsed subtitle to string. |
|
|
|
|
|
|
|
|
|
=cut |
|
|
|
|