Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: re-syncing these subtitles

by Anonymous Monk
on Sep 06, 2010 at 08:06 UTC ( #859020=note: print w/replies, xml ) Need Help??


in reply to re-syncing these subtitles

I'd recommend Time::Duration and Time::Duration::Parse for this to save effort, assuming you can get it to give you the right output (for example, it interprets strings in the form 'dd:dd' as hh:mm instead of mm:ss, but you can add ':00' to the end to fix that).

Also, I'd probably write the main logic differently:

my $timespec = qr/\d{2}:\d{2}:\d{2},\d+/; my ($infile, $offset) = @ARGV; usage() unless defined $offset and $offset =~ /^[+-]?\d+$/; # integer ... if (my ($start, $end) = /^($timespec)\s-->\s($timespec)/) { $_ = time_to_sec($_) += $offset for $start, $end; print "$start --> $end\r\n"; } ...

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://859020]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (6)
As of 2021-06-23 09:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    What does the "s" stand for in "perls"? (Whence perls)












    Results (117 votes). Check out past polls.

    Notices?