SoloCodigo

Programación Web y Scripting => Perl => Mensaje iniciado por: rsalg en Martes 15 de Abril de 2003, 00:28

Título: intercalar lineas de archivos y contarlas
Publicado por: rsalg en Martes 15 de Abril de 2003, 00:28

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!!

Título: Re: intercalar lineas de archivos y contarlas
Publicado por: explorer en Domingo 9 de Julio de 2006, 04:16

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.