Foro - Perl en Español

No entiendo la pregunta.

Buscando por Internet, aquí hay un ejemplo de instalación con el ppm desde la línea de comandos:

ppm install File-Copy-Recursive

Ya instalé el módulo, ya me copió un archivo de una ruta origen a una ruta destino.

Ahora quiero hacer una copia de varias rutas origen a una ruta destino. ¿Se puede hacer con la función de File::Copy::Recursive?



¡¡Saludos!!

Según el manual, parece que no. Tendrás que repetir el comando.

Excelente, señor, ya hice ese cambio y me funcionó:

Me funcionó bien la opción de file::copy::recursive pero también me está copiando la carpeta destino sobre la carpeta destino.

#!/usr/local/bin/perl

#use warnings;

use File::Copy::Recursive qw(dircopy);

print "start\n";

$origen1="c:\\interfaz_pagos\\entrada\\AFIRME";
$origen2="c:\\interfaz_pagos\\entrada\\BANAMEX";
$destino="z:\\entrada";

dircopy($origen1, $destino) or die "la Copia fallo: $!";
dircopy($origen2, $destino) or die "la Copia fallo: $!";

Me copia lo siguiente: z:\\entrada\\entrada

Cuando solo quiero que me copie los archivos dentro de la ruta destino.

Quizás tengas que activar la opción $File::Copy::Recursive::CPRFComp, o poner un '/' al final de entrada.

Recuerda que no es necesario escribir

sino que vale con hacerlo así:

(Windows entiende la barra inclinada de Unix)