> > 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 [EMAIL PROTECTED]
(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 - [EMAIL PROTECTED] - (+52-55)5623-1118
PGP key 1024D/8BB527AF 2001-10-23
Fingerprint: 0C79 D2D1 2C4E 9CE4 5973 F800 D80E F35A 8BB5 27AF
