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

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


Disculpen encontré un detalle en el código anterior. Ahora es el sgte.

#!/usr/bin/perl -w

$org='/home/aarnal/pruebacopia/file.txt';
$i=1;

open (ORIGEN,$org);

while(<ORIGEN>){
	print "Copiando archivo: $_\t Cantidad de archivos copiados: $i\n";
	`cp $_ /home/aarnal/pruebacopia1/`;
	$i++;
	}

close (ORIGEN);

Sin embargo sigue dando el mismo error


More information about the caracas-pm mailing list