[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