[caracas-pm] Problema con script para copiar archivos de un directorioa otro

Alexis Arnal aarnal at gmail.com
Thu Jun 8 07:00:22 PDT 2006


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


-- 
#--------------------
#!/usr/bin/perl -w
# Ing. Alexis Arnal
# GNU/Linux user: 411537
# Debian - Kernel 2.6.7-1-386
# CNE. Caracas - Venezuela
#---------------------
use strict;
print "No basta con alcanzar la sabiduría, es necesario saber utilizarla\n";
print "Marco Tulio Cicerón. 106 AC-43 AC. Escritor, orador y político romano\n";
print "http://www.proverbia.net";
#---------------------


More information about the caracas-pm mailing list