Programación Web y Scripting > Perl
intercalar lineas de archivos y contarlas
(1/1)
rsalg:
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:
--- Código: Text ---#!/usr/bin/perl my @fichero1 = do{ open F,"<fichero1.txt"; <F> };my @fichero2 = do{ open F,"<fichero2.txt"; <F> }; open INTER,">intercalado";open PARES,">pares";open IMPAR,">impar"; for( my $i = 0; $i < @fichero1; $i++ ) { # Salida intercalada print INTER $fichero1[$i]; print INTER $fichero2[$i]; # Salida de las pares unless ( $i % 2 ) { print PARES $fichero1[$i]; print PARES $fichero2[$i]; } # Salida de las impares else { print IMPAR $fichero1[$i]; print IMPAR $fichero2[$i]; }} close PARES; close IMPAR; close INTER;
Navegación
Ir a la versión completa