Ver Mensaje Individual
  #5 (permalink)  
Antiguo 22/09/2004, 06:39
kidd
 
Fecha de Ingreso: mayo-2003
Mensajes: 328
Antigüedad: 21 años, 9 meses
Puntos: 0
Hola:

Lo que sucede es que el código que tienes no va a hacer lo que esperas:

Código:
  open (IDFICH,"<actuali.exe");
         open (MANEJA,">descar.txt");
              for($i=0;$i<500;$i++){
                   @contenido=<IDFICH>;
                   print MANEJA @contenido;
                }
         close (MANEJA);
  close (IDFICH);
Lo que estas haciendo es repitiendo 500 veces el proceso de copiar y escribir el archivo completo. Y solo puedes con 10 mb porque es todo lo que tu memoria esta liberando.

Más bien lo que deberías sería lo siguiente:

Código:
  open (IDFICH,"<actuali.exe");
         open (MANEJA,">descar.txt");
              for($i=0;$i<500;$i++){
                   $contenido=<IDFICH>;
                   print MANEJA $contenido;
                }
         close (MANEJA);
  close (IDFICH);
Esto copiaría solamente 500 líneas, no por esos son 50kb.

SALUDOS
__________________
Uriel Lizama, Perl Developer

Aprende Perl en Perl en Español.