Foro - Perl en Español

por **aramallal** » 2007-06-29 01:26 @101

Buenos días. Lo que tengo que hacer es leer un fichero y copiar todo en uno nuevo.

Router.cfg es donde estará la información. Le quiero cambiar el nombre añadiéndole la fecha y grabándolo en otro sitio un fichero nuevo pero no lo consigo. A ver qué me dices de este código . Gracias:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!usr/bin/perl
$politica_nueva="router.cfg";
&fecha;
$router= zlsoe ;
&nfichero;
&configuracion;
sub fecha {
$fecha=localtime;
my@fecha=localtime;
$mes=@fecha[4];
$mes=$mes+ 1 ;
$anyo=@fecha[5];
$anyo=$anyo+ 1900 ;
$fecha_real=@fecha[3].$mes.$anyo;
return$fecha_real;
}

sub nfichero{

$fichero=($router.$fecha_real."."."cfg");
print"$fichero \n";
sleep2;
return$fichero;
}

sub configuracion {
open(CONF,"<$politica_nueva");
open(FICH,">$fichero");
@registros1=<CONF>;#mete el fichero en un array
@registros2=<FICH>;
foreach$conf(@registros1){#lo recorre para ir imprimiendo todo


print FICH $conf;

}
}Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Código: Seleccionar todo: opendir (DATABASEDIR, htmls_editer); my @elementos = sort readdir (DATABASEDIR); closedir(DATABASEDIR) shift(@elementos); shift(@elementos); foreach my $elemento (@elementos){ my $filecode = ''; open(FILE, "< htmls_editer/$elemento"); while (my $linecode = <FILE>){ $filecode .= $linecode; } close(FILE); open(FILE, "> htmls_editer2/$elemento"); print FILE $filecode; close(FILE); print "Archivo $elemento editado correctamente \n"; } print "The End";

Espero que te sirva

Saludos

por **kidd** » 2007-06-29 09:10 @423

Usa el módulo File::Copy:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!usr/bin/perl

use strict;
use File::Copy;

my$politica_nueva="router.cfg";

my$fecha= fecha();
my$router="zlsoe";

my$fichero= nfichero();


copy($politica_nueva,$fichero)ordie"Copy failed: $!";


sub fecha {
my@fecha=localtime;
return($fecha[3].($fecha[4]+1).($fecha[5]+1900));
}


sub nfichero{
my$fichero=($router.$fecha."."."cfg");
print"$fichero \n";
sleep2;
return$fichero;
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Copiar un fichero

Copiar un fichero

Publicidad

¿Quién está conectado?