• Viernes 29 de Marzo de 2024, 14:45

Autor Tema:  intercalar lineas de archivos y contarlas  (Leído 3385 veces)

rsalg

  • Nuevo Miembro
  • *
  • Mensajes: 3
    • Ver Perfil
intercalar lineas de archivos y contarlas
« en: Martes 15 de Abril de 2003, 00:28 »
0
necesito ayuda!!
Debo leer 2 archivos, intercalar sus lineas y guardarlas en otro archivo que se muestre por pantalla. Ademas debo guardar las lineas impares en un archivo y las pares en otro.
por favor ayudenme!!

explorer

  • Miembro activo
  • **
  • Mensajes: 68
    • Ver Perfil
Re: intercalar lineas de archivos y contarlas
« Respuesta #1 en: Domingo 9 de Julio de 2006, 04:16 »
0
Código: Text
  1. #!/usr/bin/perl
  2.  
  3. my @fichero1 = do{ open F,"<fichero1.txt"; <F> };
  4. my @fichero2 = do{ open F,"<fichero2.txt"; <F> };
  5.  
  6. open INTER,">intercalado";
  7. open PARES,">pares";
  8. open IMPAR,">impar";
  9.  
  10. for( my $i = 0; $i < @fichero1; $i++ ) {
  11.  
  12.     # Salida intercalada
  13.     print INTER $fichero1[$i];
  14.     print INTER $fichero2[$i];
  15.  
  16.     # Salida de las pares
  17.     unless ( $i % 2 ) {
  18.         print PARES $fichero1[$i];
  19.         print PARES $fichero2[$i];
  20.     }
  21.  
  22.     # Salida de las impares
  23.     else {
  24.         print IMPAR $fichero1[$i];
  25.         print IMPAR $fichero2[$i];
  26.     }
  27. }
  28.  
  29. close PARES; close IMPAR; close INTER;
  30.