[caracas-pm] Problema con script para copiar archivos de un directorioa otro
Jose Rey
jrey at linuxsis.net
Thu Jun 8 08:35:00 PDT 2006
Como dijo francisco el programa tiene un error lógico, pues estas
copiando el archivo cuyo nombre se encuentra en la primera línea de
'/home/aarnal/pruebacopia/file.txt', si quieres copiar archivos desde
perl, sin enrrollarte la vida puedes utilizar File::Copy:
------------------------
#!/usr/bin/perl -w
use File::Copy;
$org='/home/aarnal/pruebacopia/file.txt';
$dest='/home/aarnal/pruebacopia1/file.txt';
copy( $org, $dest ) or die("Fallo la copia");
------------------------
Ademas el modulo permite especificar el tamaño de los buffers de copia y provee algunas otras funciones útiles.
Saludos
Jose Luis Rey
Alexis Arnal wrote:
>Saludos, estoy teniendo un problemita con un script que hice para
>copiar archivos de un directorio a otro.
>
>El archivo file.txt contiene el nombre de los archivos a copiar
>
>Este es el script:
>
>#!/usr/bin/perl -w
>$org='/home/aarnal/pruebacopia/file.txt';
>$dest='/home/aarnal/pruebacopia1/';
>$i=1;
>
>open (ORIGEN,$org);
>$copy=<ORIGEN>;
>
>
>while($copy){
> print "Copiando archivo: $copy\t Cantidad de archivos copiados: $i\n";
> `cp $copy /home/aarnal/pruebacopia1`;
> }
>
>close (ORIGEN);
>
>El error que me da es el siguiente:
>
>cp: falta el fichero de destino
>Pruebe `cp --help' para más información.
>sh: line 1: /home/aarnal/pruebacopia1: is a directory
>
>Sin embargo cuando lo ejecuto con un oneliner funciona:
>
>perl -e '`cp file.txt /home/aarnal/pruebacopia1/`'
>
>Gracias por su atención
>
>
>
>
More information about the caracas-pm
mailing list