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

[Alexis Arnal]

Ya encontré la solución, el problema era un enter que tenía la variable $_

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


2006/6/8, Alexis Arnal <aarnal at gmail.com>:
> 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
>


-- 
#--------------------
#!/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";
#---------------------