[Perl] Pregunta #2

[Alejandro G. Bedoya]

> while (<REAL>) { $REAL{$_}=3D1 }
> while (<MIENTRAS>) { agregas if ! exists $REAL{$_} }

    Ciertamente, aunque tambien estas haciendo comparaciones...  La o=
tra que
se me ocurrio que indican mas adelante es...

my %Temporal;
foreach $Mie (@MIENTRAS) {
    $Temporal{$Mie}++;
    }
foreach $Rea (@REAL) {
    $Temporal{$Rea}++;
    }

@Real=3D();

foreach $Tem (keys %Temporal) {
    push @Real, $Tem;
    }


Aqui no harias ninguna comparaci=F3n, y usarias los hashes de PERL.
Obviamente, esto solo es posible a que perl tiene estos hashes, ser=
=EDa cosa
de ver como podria hacerse con un lenguaje que no los tuviera.... Rea=
lmente
no es necesario hacer el ++, es solamente para darle un valor, pero p=
odr=EDa
servir para saber cuantos duplicados hubo y cuantos nuevas lineas se
metieron.  Adem=E1s, en mi caso, tengo que procesar el MIENTRAS prime=
ro para
no perder los datos de REAL que haya duplicados, porque realmente ten=
go mas
campos =E9ste.

>  O tal vez usar GDBM.

    Que es esto???


---
Sinceramente...
Alejandro G. Bedoya
InterAccion.COM          Ponemos su Internet en Acci=F3n