Foro - Perl en Español

#!/usr/bin/perl

use strict;
use warnings;
use Time::Simple;

use constant ONE_HOUR => 60 * 60;

my ( $time_re, $add_time ) = ( qr/(?:\d{2}:?){3}/, $ARGV[1] );

sub parse_file {
    my ( $file ) = @_;
    return unless $file and defined $add_time;
    local $/ = "\r\n"x2;
    open my $fh, $file or die $!;
    print parse_record( $_ ) while <$fh>;
    close $fh;
}

sub parse_record {
    my ( $line ) = @_;
    my @times = $line =~ /$time_re/g;
    my @new_times =
        map Time::Simple->new( $_ ) + $add_time - ONE_HOUR, @times;
    $line =~ s/$times[$_]/$new_times[$_]/ for 0..@times - 1;
    return $line;
}

parse_file( $ARGV[0] );

package Subtitle;

        use strict;

        sub new {
                my $class = shift;
                my $obj = {};
               
                $obj->{-file}                   = undef;
                $obj->{-desvio}                 = 0;
                $obj->{-backup}                 = 0;
               
                # Chequeamos parámetros
                my %params = @_;
                for my $key (keys %params) {
                        $obj->{$key} = $params{$key} if exists($obj->{$key});
                       
                }
               
                bless $obj, $class;
               
                return $obj;
        }
       
        sub loadFile {
                my $obj = shift;
                $obj->{-file} = $_[0];
               
                # Validamos tipos de argumentos.
                die "El fichero $obj->{-file} no se pudo abrir.\n" unless open FILE, $obj->{-file};
        }
       
        sub loadDesvio {
                my $obj = shift;
               
                die "El parámetro de tiempo es incorrecto.\n" unless $obj->{-desvio} =~ /^([0-9]+|[-0-9]+)(s|m|h)*$/;
                my $sec = $_[0];
                # Si llega en minutos u horas, lo pasamos a segundos.
                if ( $_[0] =~ /^([0-9]+|[-0-9]+)m$/ ) {
                        $sec = $_[0] * 60;
                } elsif( $_[0] =~ /^([0-9]+|[-0-9]+)h$/ ) {
                        $sec = $_[0] * 3600;
                }
                $obj->{-desvio} = $sec;
        }
       
        # Genera un backup del original.
        sub makeBackup {
                my $obj = shift;
                $obj->{-backup} = 1;
        }
       
        # Escribe el archivo
        sub generate {
                my $obj = shift;
               
                open FILE, $obj->{-file};
                my @file = <FILE>;
                my $newSubtitles = "";
                for (@file) {
                        if ( /^[0-9]{2}:[0-9]{2}:[0-9]{2},[0-9]{0,3}[ --> ]*[0-9]{2}:[0-9]{2}:[0-9]{2},[0-9]{0,3}/ ) {
                                $newSubtitles .= $obj->_calculate();
                        } else {
                                $newSubtitles .= $_;
                        }
                }
                close FILE;
               
                # Generamos backup
                if ($obj->{-backup}) {
                        my $cont = 0;
                        while (1) {
                                if ( !-e $obj->{-file}.".bk$cont" ) {
                                        open FILE_SAVE, "> $obj->{-file}.bk$cont";
                                        for (@file) {
                                                print FILE_SAVE;
                                        }
                                        close FILE_SAVE;
                                        last;
                                }
                                $cont++;
                        }
                }
               
                # Guardamos el fichero (sobreescribimos)
                open FILE_SAVE, "> $obj->{-file}";
                print FILE_SAVE $newSubtitles;
                close FILE_SAVE;
        }
       
        # Calcula los tiempos y devuelve el string de tiempo con el formato.
        sub _calculate {
                my $obj = shift;
               
                my $newTime = "";
                my @line = split / --> /, $_;
                my $addArrow = 1;
               
                # Discriminamos el string de tiempo y devolvemos el nuevo.
                for (@line) {
                        my @time = split /,/, $_;
                        for (@time) {
                                if (/[0-9]{2}:/) {
                                        $newTime .= $obj->_getFormatedTime($_);
                                } elsif(/[0-9]{3}/) {
                                        my $aux = ",$_ --> ";
                                        $aux = substr $aux, 0, -5 unless $addArrow ;
                                        $newTime .= $aux;
                                        $addArrow = 0;
                                }
                        }
                }
               
                return $newTime;
        }
       
        # Devuelve el string de tiempo en formato HH:MM:SS
        sub _getFormatedTime {
                my $obj = shift;
               
                my @time = split /:/, $_[0];
               
                # Obtenemos cantidad de segundos
                my $seconds = @time[2]; # Segundos
                $seconds += @time[1]*60; # min a segundos
                $seconds += @time[0]*3600; # hora a segundos
               
                # Sumamos (segundos finales)
                $seconds = $seconds + $obj->{-desvio};
               
                my ($h, $restMin) =  (int($seconds / 3600), $seconds % 3600);
                my ($m, $s)                             =  (int($restMin / 60), $restMin % 60);
                $h = sprintf "%.2d", $h;
                $m = sprintf "%.2d", $m;
                $s = sprintf "%.2d", $s;
               
                return "$h:$m:$s";
        }
       
1;
 

#!/usr/bin/perl

# Desviador de tiempo. Subtitulos.
# primer parametro: path_al_archivo_srt
# segundo parametro: tiempo a desviar => ej.:
        # 45
        # 15m
        # 1h
        # -10
        # -15m
# 45 => son segundos, 15m => son 15 minutos, 1h => 1 hora

@INC = ("./");

use strict;
use Subtitle;

# Validamos numero de argumentos.
die "Debe ingresar el fichero de subtitulos\n"  unless $ARGV[0];
die "Debe ingresar el tiempo de desvío\n"                      unless $ARGV[1];

my $sub = Subtitle->new(); # Creamos.
$sub->loadFile($ARGV[0]); # Cargamos archivo.
$sub->loadDesvio($ARGV[1]); # Cargamos tiempo de desvio.
$sub->makeBackup(); # Hacemos un backup del original.
$sub->generate(); # Generamos el archivo.