Foro - Perl en Español

por **punkscp** » 2011-10-14 15:32 @689

Saludos cordiales.

Tengo un pequeño problemón con un script que no me queda. Lo que deseo hacer es copiar todos los archivos XML, los cuales los tengo divididos en diferentes carpetas por fecha. Quiero hacer un acumulativo. Ejemplo:

C:\EDIWIN\DOMINIOS\EDI\SALIDA\TEMPCH\BACKUP\XML\arc

Esta contiene carpetas año y mes. Ejemplo:

C:\EDIWIN\DOMINIOS\EDI\SALIDA\TEMPCH\BACKUP\XML\arc\201101
C:\EDIWIN\DOMINIOS\EDI\SALIDA\TEMPCH\BACKUP\XML\arc\201106

Dentro de estas carpetas están los archivos XML.

¿Cómo puedo hacer para que los archivos se copien en C:\XML?

Mi ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
use strict;
use File::Copy;
use XML::Simple;
 
my @dir = qw{
C:\EDIWIN\DOMINIOS\EDI\SALIDA\TEMPCH\BACKUP\XML
C:\EDIWIN\DOMINIOS\EDI\SALIDA\TEMPCOMERMEX\BACKUP\XML
C:\EDIWIN\DOMINIOS\EDI\SALIDA\TEMPCOR\BACKUP\XML
C:\EDIWIN\DOMINIOS\EDI\SALIDA\TEMPGENERICO\BACKUP\XML
C:\EDIWIN\DOMINIOS\EDI\SALIDA\TEMPIMS\BACKUP\XML
C:\EDIWIN\DOMINIOS\EDI\SALIDA\TEMPSOR\BACKUP\XML
C:\EDIWIN\DOMINIOS\EDI\SALIDA\TEMPWA\BACKUP\XML
C:\EDIWIN\DOMINIOS\EDI\SALIDA\TEMPDICONSA\BACKUP\XML
C:\EDIWIN\DOMINIOS\EDI\SALIDA\TEMPAEROVIAS\BACKUP\XML
C:\EDIWIN\DOMINIOS\EDI\SALIDA\TEMPABARROTESRIV\BACKUP\XML
C:\EDIWIN\DOMINIOS\EDI\SALIDA\TEMPCHEFMART\BACKUP\XML
C:\EDIWIN\DOMINIOS\EDI\SALIDA\TEMPCOSTENA\BACKUP\XML
C:\EDIWIN\DOMINIOS\EDI\SALIDA\TEMPESQUIVAR\BACKUP\XML
C:\EDIWIN\DOMINIOS\EDI\SALIDA\TEMPGARCES\BACKUP\XML
C:\EDIWIN\DOMINIOS\EDI\SALIDA\TEMPSUPERNETO\BACKUP\XML
};
# my @recentCFD = "";
my $backup_dir = "./arc/";
my ($sec,$min,$hour,$day,$month,$yr19,@rest) =   localtime(time);####### Obtiene la hora del sistema
my $destdir="/cfd/569/".($yr19+1900);####### asigna directorio seguún el año en que se ejecute
my @ERRORS="";
my $newerr=0;
 
foreach my $dir (@dir){
  chdir $dir ;
  print "Cambiando de directorio a " . $dir . "\n";
  my @files = <*.xml>;
  foreach my $archivo (@files){
        print $archivo, "\n";
        #move ($archivo,"./arc/");
                my $ref = eval {XMLin($archivo)};
                        if (!$@){
                                my $fech = $ref->{fecha};
                                my $anio = substr($fech,0,4);
                                my $mes = substr($fech,5,2);
                        
                                if (! -d $backup_dir.$anio.$mes) {
                        #      print "Directory: No.\n";
                                  print "Creando directorio: $anio$mes:\n";
                                  mkdir $backup_dir.$anio;
                                }    
                                
                                # print $archivo," --> " ,$anio, $mes,"\n";
                                copy($archivo,$backup_dir . $anio . "/");
                        }
                        else
                        {
                                print "Error procesando archivo: ",$archivo," \n";
                                rename $archivo,$archivo.".err";
                        }
        }
}
 
sub myerr { 
  print "Error: \n"; 
  print @ERRORS; 
  exit 0; 
} 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Si alguien me pudiera ayudar de favor.

¡Muchas gracias!

Disculpa.

Yo creo que el programa está casi funcionando al 100%.

Veo mal la forma de indicar el directorio destino. Fíjate que en la línea 31 haces un chdir() para entrar en el directorio de los ficheros origen, lo cual es correcto, pero luego, en las líneas 46 y 50, $backup_dir es './arc/', indicando, con el punto, que es una ruta relativa a donde en ese momento te encuentras, por lo que vas a crear un subdirectorio arc/ dentro del mismo directorio en donde están los ficheros xml. Y en la 50, copiar el fichero dentro del directorio './arc/$anio/'. no sé si es así como lo quieres hacer.

Aquí hay otro problema: copy() necesita que el segundo argumento sea el nombre de un fichero, no nos vale con una simple ruta. Así, la línea 50 sería:

copy($archivo, $backup_dir . $anio . "/" . $archivo);

Otro error: la línea 43 es mejor escribirla así:
if (! -d "$backup_dir$anio/$mes") {

y aquí hay otro error más en la 46: estás creando el subdirectorio del año, pero no el del mes.

Si necesitas crear más de un nivel de profundidad de subdirectorios, lo recomendable es usar la función make_path() del módulo File::Path (o usar una condición -d más, seguida de otro mkdir()).

por **punkscp** » 2011-10-24 15:06 @671

¡Muchas gracias!

Con la orientación que me diste del Find me quedó de la siguiente manera:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use strict;
use File::Find;
 
my $dir = 'C:/EDIWIN/DOMINIOS/EDI/SALIDA/';
 
find( \&imprimir_archivo_pl, $dir );
 
sub imprimir_archivo_pl {
    my $elemento = $_;
 
    if ( -f $elemento && $elemento =~ /\.XML$/ ) {
        print "$File::Find::name\n";
    }
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

con esto llegue a la finalidad a crear un archivo de texto con dichos archivos XML el cual ejecuto

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

perl buscar.pl > XML.txt
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

y me genera todos los XML que encuentre dentro de la carpeta indicada y subcarpetas.

Espero que a alguien le sea de ayuda =)

por **punkscp** » 2011-11-16 10:33 @481

Una pregunta: a este mismo script ¿cómo le puedo decir que los archivos que encontró con la extensión .XML los copie, por ejemplo, a una carpeta en C:\XML?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use strict;
use File::Find;
 
my $dir = 'C:/EDIWIN/DOMINIOS/EDI/SALIDA/';
 
find( \&imprimir_archivo_pl, $dir );
 
sub imprimir_archivo_pl {
    my $elemento = $_;
 
    if ( -f $elemento && $elemento =~ /\.XML$/ ) {
        print "$File::Find::name\n";
    }
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

De antemano, agradezco la ayuda.

por **explorer** » 2011-11-16 12:26 @559

Con el módulo File::Copy puedes hacer operaciones básicas de copia y movimiento de ficheros.

Foro - Perl en Español

script copiar archivos XML de carpeta por mes

script copiar archivos XML de carpeta por mes

Publicidad

Re: script copiar archivos XML de carpeta por mes

Re: script copiar archivos XML de carpeta por mes

Re: script copiar archivos XML de carpeta por mes

Re: script copiar archivos XML de carpeta por mes

Re: script copiar archivos XML de carpeta por mes

Re: script copiar archivos XML de carpeta por mes

¿Quién está conectado?