Foro - Perl en Español

por **enric73** » 2012-09-17 13:02 @585

Hola compañeros,

querría modificar la cabecera de un fichero que empieza con ww_2012091700.dat por WW_alt.dat

La cabecera contiene la fecha del día y entonces cada día se modifica. Había escrito el siguiente script pero no me cambia la fecha por el WW_alt.dat. ¿Algún consejo?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/env perl
use v5.10;
use DateTime;
 
$date = DateTime->now->ymd("");
print "$date\n";
 
@args = ("perl -pi -e 's/ WW_${date}00.dat/WW_alt.dat/g' WW_altvc.ctl");
escriu("@args");
system(@args) == 0 or die $!;
 
sub escriu {
    my @missatge = @_;
    chomp( my $hora = `date |awk '{print \$4}'` );
    print "----->  $hora @missatge\n";
}
 
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

#!/usr/bin/perl
use v5.10;
use autodie;
 
my $archivo = 'WW_altvc.ctl';
 
## Leemos el archivo
open    my $CTL, $archivo; 
my @CTL = <$CTL>;
close      $CTL;
 
## ¡Chas!
$CTL[0] =~ s/\d+/alt/;  # El primer conjunto de dígitos lo cambiamos por 'alt'
 
## Guardamos el archivo
open my $CTL_OUT, ">$archivo";
print   $CTL_OUT @CTL;
close   $CTL_OUT;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **enric73** » 2012-09-17 18:02 @793

Muchas gracias explorer, me ha funcionado.

Otra consulta: Quiero renombrar el nombre de un fichero, que contiene la fecha en el nombre, pero algo falla. No me cambia el nombre.

Adjunto la parte del código.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use v5.10;
use DateTime;
 
$date = DateTime->now->ymd("");
print "$date\n";
$root = '/home/enric/WW3_roda';
rename("$root/WW_{$date}00.ctl", "$root/WW_alt.ctl");
rename("$root/WW_{$date}00.dat", "$root/WW_alt.dat");
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **enric73** » 2012-09-18 05:36 @275

Disculpad por la pregunta, ya está solucionado.

Tenía que concatenar, al final de la siguiente manera.

Si hay alguna más elegante, ¿me lo podrías comentar? Gracias.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use v5.10;
use DateTime;
 
$date = DateTime->now->ymd("");
$date2='00.ctl';
$date4='00.dat';
$date3=$date."".$date2;
$date5=$date."".$date4;
$root = '/home/enric/WW3_roda';
 
rename("$root/WW_$date3", "$root/WW_alt.ctl");
rename("$root/WW_$date5", "$root/WW_alt.dat");
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2012-09-18 07:53 @370

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use v5.10;
use autodie;
use DateTime;
 
my $root  = '/home/enric/WW3_roda';
my $date  = DateTime->now->ymd("") . '00';
 
rename("$root/WW_$date.ctl", "$root/WW_alt.ctl");
rename("$root/WW_$date.dat", "$root/WW_alt.dat");
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **enric73** » 2012-09-18 14:06 @629

Gracias, explorer. Sí, es más corto y limpio.

Foro - Perl en Español

Modificar cabecera de un archivo

Modificar cabecera de un archivo

Publicidad

Re: Modificar cabecera de un archivo

Re: Modificar cabecera de un archivo

Re: Modificar cabecera de un archivo

Re: Modificar cabecera de un archivo

Re: Modificar cabecera de un archivo

Re: Modificar cabecera de un archivo

Re: Modificar cabecera de un archivo

¿Quién está conectado?