Foro - Perl en Español

Aunque he dejado apartado por el momento el tema de la similaridad en una cadena de texto, me he puesto a identificar las cadenas de direcciones y asignarles un país y su respectivo continente de manera automática. Para ello me hice una subrutina que carga en un hash el país y su respectivo continente, lo leo de una tabla en mi BD.

esto funciona, sé que es mejorable, pero funciona.

Luego que tengo el hash quiero que por cada dirección almacenada en otra tabla se asigne, el país y el resto de valores guardados, para ello hago una consulta a la BD a la tabla de direcciones y busco.

funciona muy bien para cada dirección localizada, si no está no la muestra. Pero si descomento el else para mostrar la que no ha identificado, por cada dirección le asigna su país correspondiente que ubico en el hash y luego se repite por cada valor del hash la palabra SIN IDENTIFICAR.

Obteniendo el siguiente resultado:

Código: Seleccionar todo

ucv, caracas, venezuela = venezuela, america del sur. america
ucv, caracas, venezuela = SIN IDENTIFICAR
ucv, caracas, venezuela = SIN IDENTIFICAR
ucv, caracas, venezuela = SIN IDENTIFICAR .....

y así hasta 239 veces que es el número de elementos que tiene el hash y por cada dirección que son unas 100mil.
¡¡¡Una ayudita por favor!!!!, no sé qué estoy haciendo mal.

Es que tienes un bucle adentro de otro, en verdad está haciendo lo que sale en else, solo que no te lo muestra, eso te consumirá muchísimo procesador...

No es recomendable hacer un bucle dentro de otro... (while y foreach)

Saludos

Yo no veo fallos... es decir, Perl está haciendo lo correcto: por cada dirección de la tabla, la comparas con todas las claves de país anteriores. Si coincide haces una cosa, pero sino, otra. El resultado es justo el que comentas: 239 por 100 mil.

Eso... o no acabo de verlo...

Me gustaría ver un ejemplo de como son las dos tablas de la base de datos.

No, fallo no tiene, el problema es que no necesito que me diga 238 veces SIN IDENTIFICACION.

Monoswim, me dices que no es bueno anidar bucles, entonces, ¿cómo hago para que una variable que extrae la información de una tabla busque en otra variable que también extrae la información de otra tabla? ¿Cual es la solución? ¿usar archivos de texto y tablas en una BD?

Estoy desorientado, no sé entonces cómo debo abordarlo.

Explorer, los datos en la tabla dirección son iguales a los que mostré en el mensaje de similaridad, aquí un poco más de datos,

Código: Seleccionar todo

1ST THERAPEUT INST SOCIAL SECUR, ATHENS, GREECE.
2 MAYO NATL HOSP, LIMA, PERU.
A ST GYORGH MED UNIV, DEPT PEDIAT, SZEGED, HUNGARY.
AAPG, TULSA, OK 74119 USA.
AARHUS AMTSSYGEHUS HOSP, MED AFDELING C, AARHUS, DENMARK.
AARHUS UNIV HOSP, DK-8000 AARHUS, DENMARK.
AB BIODISK, SOLNA, SWEDEN.
ABBOTT LABS INC, ROSS DIV, COLUMBUS, OH USA.
ABBOTT LABS INC, ROSS PROD DIV, COLUMBUS, OH 43215 USA.
ABBOTT LABS, N CHICAGO, IL 60064 USA.
ABDAL MALEK ESSAADI UNIV, FAC SCI, APPL PHYS CHEM LAB, TETOUAN, MOROCCO
AES VENEZUELA, CARACAS 1010, VENEZUELA.
AF IOFFE PHYS TECH INST, ST PETERSBURG 194021, RUSSIA.

Los datos en la tabla país los tome de la norma ISO 3166 y son: nombre del país, código numérico, tres letras y dos letras del nombre. Cuatro campos en total.

Código: Seleccionar todo

Afghanistan 4 AFG AF
Åland Islands 248 ALA AX
Albania 8 ALB AL
Algeria 12 DZA DZ
American Samoa 16 ASM AS
Andorra 20 AND AD

El resultado que esperaba que saliera de manera correcta, seria:

Código: Seleccionar todo

UNIV LOS ANDES, FAC MED, NEUROENDOCRINOL LAB, DPTO FISIOPATOL, MERIDA, VENEZUELA. Venezuela 862 VEN VE
UNIV PARIS SUD, CNRS, PHOTOPHYS MOL LAB, F-91405 ORSAY, FRANCE. France 250 FRA FR
UNIV NEBRASKA,SCH BIOL SCI,LINCOLN,NE 68588. SIN IDENTIFICAR
UNIV N CAROLINA, DEPT GEOL SCI, CHAPEL HILL, NC 27599 USA.3 UNIV LOS ANDES, FAC MED, NEUROENDOCRINOL LAB, DPTO FISIOPATOL, MERIDA, VENEZUELA. Venezuela 862 VEN VE

Se me ocurre entonces lo siguiente: dentro del bucle foreach estás buscando qué país corresponde a la dirección que estás leyendo de la tabla. Entonces, una vez que le encuentres, con la ayuda del if, lo asignas o lo guardas, Y, a continuación, ejecutas un last; para que el bucle foreach termine inmediatamente.

Esta es una forma, pero lo ideal es que las claves extraídas de las direcciones nos diesen las claves de los países dentro del hash de países, por lo que no habría que hacer búsqueda ninguna.

Yo haría lo siguiente. Primero, normalizar los datos. Guardaría, en el hash de países, como claves, el nombre del país puesto, por ejemplo, en mayúscula.



Luego, al recorrer las direcciones, transformo el foreach en un intento de correspondencia hash. En el intento anterior veo que estás intentando hacer corresponder la línea devuelta con el código de país, pero mirando solo si coincide en su parte final -junto con un punto-. Bueno, entonces haremos el proceso inverso: de la línea devuelta por la tabla, intentaremos coger el país y luego intentar hacerle buscar en la tabla de países.

(No probado)

He cambiado algunas cosas (fetchall por fetch, ya que sólo recuperas un campo, creo; y la hash %res por %paises).

Actualización: Faltaba un 'join' para mostrar todos los datos del país, pues estaba guardado como un array anónimo.

lo he ejecutado y este es lo que se ha obtenido

Código: Seleccionar todo

No pude extraer el pa?s de ARRAY(0x18701d8)
No pude extraer el pa?s de ARRAY(0x18701d8)
No pude extraer el pa?s de ARRAY(0x18701d8)
No pude extraer el pa?s de ARRAY(0x18701d8)
No pude extraer el pa?s de ARRAY(0x18701d8)
No pude extraer el pa?s de ARRAY(0x18701d8)
No pude extraer el pa?s de ARRAY(0x18701d8)
No pude extraer el pa?s de ARRAY(0x18701d8)
No pude extraer el pa?s de ARRAY(0x18701d8)

Voy a revisar línea a línea, para ubicar dónde está el fallo, aunque creo que es la primera línea.

Cuando lo termine de revisar envío los resultados.
Muchas gracias por la ayuda.

El fallo es que estaba usando fetch(), que es un alias de un fetchrow_arrayref, por lo que eso me devuelve una referencia a un array... y no el contenido de línea como yo quería.

Ya he editado el código y he cambiado $linea por $linea->[0]. Prueba a ver ahora.

ok, lo probaré y ya te contaré como fue. Muchas gracias de nuevo.
Ahora tengo una duda, ¿es posible buscar en un hash en cualquier parte?
Me explico mejor: si tengo un hash con una clave y tres valores asociados, tengo una palabra en otra variable y quiero ver si ese hash lo tiene, ya sea la clave o cualquier otro valor. ¿Es posible?