Re: Duda de Perl->regexp

[Gunnar Wolf <gwolf@campus.iztacala.unam.mx>]

> > Basta con que hagas:
> > @file1=<FILE1>
> > @file2=<FILE2>
>
> ¿Y luego cómo lo recorro (eficientemente)? ¿Con foreach?
>
> foreach $line1(keys @file1){
> 	foreach $line2(keys @file2){
> 		# hago mis cositas
> 	}
> }
>
> Más o menos así? Lo que quiero es comparar cada linea de un archivo con
> todas las de otro. Y todo esto porque los logs son un poco raritos...

Podrías - Sin embargo, quita el 'keys'. La función keys te entrega cada
una de las llaves de un hash. Si pides keys sobre un arreglo, si el
arreglo tiene un número par de elementos lo convertirá (malamente) a hash,
y te dará sólo la mitad de los eelmentos. Si tiene un número impar, se
quejará amargamente. Como sea, seguro ya tuviste un fin de semana para
darte cuenta por tí misma ;-)

foreach $line1 (@file1) {
    foreach $line2 (@file2) {
        CositasDeAmaya($line2,$line1);
    }
}

PD - Te sugiero asomarte a la lista perl@tlali.iztacala.unam.mx
(http://tlali.iztacala.unam.mx/mailman/listinfo/perl) - te puede sacar de
apuros. Es posible que, con mi cambio de trabajo, pronto reubiquemos esa
lista - espero que no sea necesario.

Saludos,

-- 
Gunnar Wolf - gwolf@campus.iztacala.unam.mx - (+52-55)5623-1118
PGP key 1024D/8BB527AF 2001-10-23
Fingerprint: 0C79 D2D1 2C4E 9CE4 5973  F800 D80E F35A 8BB5 27AF