Foro - Perl en Español

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:



Si alguien me pudiera ayudar de favor.

¡Muchas gracias!

Yo usaría File::Find...

Ahí sí ya no entendí cómo realizaría la búsqueda del archivo específico.

Si me lo pudieras simplificar ya, que no soy muy experto en Perl.

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()).

¡Muchas gracias!

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



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



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

Espero que a alguien le sea de ayuda =)

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?



De antemano, agradezco la ayuda.

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