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

[0] Índice de Mensajes

Ir a la versión completa