You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
82 lines
2.0 KiB
82 lines
2.0 KiB
10 years ago
|
package Subtitle::MSub;
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use feature qw(switch);
|
||
|
|
use utf8;
|
||
|
|
|
||
|
|
use base 'Subtitle::BASE';
|
||
|
|
|
||
|
|
sub new {
|
||
|
|
my ($class, %args) = @_;
|
||
|
|
my $self = {
|
||
|
|
debug => 0,
|
||
|
|
eol => "\n",
|
||
|
|
fps => undef,
|
||
|
|
default_fps => 25.0,
|
||
|
|
convert_timing => 1,
|
||
|
|
%args,
|
||
|
|
events => [],
|
||
|
|
log => [],
|
||
|
|
};
|
||
|
|
|
||
|
|
return bless($self, $class);
|
||
|
|
}
|
||
|
|
|
||
|
|
sub new_event { return +{ timing => undef, text => undef }; }
|
||
|
|
|
||
|
|
sub parse {
|
||
|
|
my ($self, $lines) = @_;
|
||
|
|
my $linenum = 0;
|
||
|
|
my $event;
|
||
|
|
|
||
|
|
foreach my $line (@$lines) {
|
||
|
|
$linenum++;
|
||
|
|
$line = $self->chomp($line);
|
||
|
|
$line = $self->trim($line);
|
||
|
|
next unless ($line);
|
||
|
|
my ($start, $end, $rest) = ($line =~ m/{(\d+)}\s*{(\d+)}\s*(.+)/o);
|
||
|
|
# expected: garbage
|
||
|
|
unless ($start and $end and $rest) {
|
||
|
|
$self->log(warn => "Unrecognized line at $linenum: $line");
|
||
|
|
next;
|
||
|
|
}
|
||
|
|
# expected: valid line
|
||
|
|
# special case - set fps
|
||
|
|
if ($start == 1 and $end == 1) {
|
||
|
|
my ($fps) = ($rest =~ m/(\d+(?:\.\d+))/o);
|
||
|
|
unless ($fps) {
|
||
|
|
$self->log(error => "Expected fps at line $linenum, but found: $rest");
|
||
|
|
next;
|
||
|
|
}
|
||
|
|
if ($fps and $self->{fps}) {
|
||
|
|
$self->log(warn => "Found fps line at $linenum, but fps already set before");
|
||
|
|
next;
|
||
|
|
}
|
||
|
|
$self->log(debug => "Set fps to $fps and line $linenum");
|
||
|
|
$self->{fps} = $fps;
|
||
|
|
next;
|
||
|
|
}
|
||
|
|
$rest =~ s/\|/$self->{eol}/og;
|
||
|
|
my $event = $self->new_event;
|
||
|
|
$event->{timing} = [$start, $end];
|
||
|
|
$event->{text} = $self->trim($rest);
|
||
|
|
push @{ $self->{events} }, $event;
|
||
|
|
undef $event;
|
||
|
|
}
|
||
|
|
# set fps if none and recalc timing
|
||
|
|
$self->{fps} //= $self->{default_fps};
|
||
|
|
return scalar @{ $self->{events} }
|
||
|
|
unless $self->{convert_timing};
|
||
|
|
|
||
|
|
$self->log(debug => "Converting frame numbers to time with fps $self->{fps}");
|
||
|
|
foreach my $event (@{ $self->{events} }) {
|
||
|
|
$event->{timing}->[0] /= $self->{fps};
|
||
|
|
$event->{timing}->[1] /= $self->{fps};
|
||
|
|
}
|
||
|
|
|
||
|
|
return scalar @{ $self->{events} };
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|