Foro - Perl en Español

Hola a todos,

estoy haciendo un programa que busca abreviaturas en un texto basandose en un hash donde se guardan las abreviaturas como clave y su significado como contenido.
Entonces, cuando se encuentra una abreviatura en el texto, etiqueta la abreviatura y a continuación pone su significado. Si en el texto original encontramos:

AAD

el programa sustituye el anterior fregmento por:

<ABREVIATURA><ABR>AAD</ABR><SIGNIF>Arco aórtico derecho.</SIGNIF></ABREVIATURA>

.

El caso es que en uno de los informes, el programa se atasca, y si mato el proceso me sale el siguiente mensaje de error:

Can't coerce UNKNOWN to string in substcont at D:\etc... line 515, <$file> line 34

¿Alguien sabe a que se puede deber?

¡Gracias!

El error dice que el programa se atascó en la línea 34, al leer la línea 515 del fichero $file.

El atasco quiere decir -si no me equivoco- que Perl no puede convertir algo desconocido a una cadena de caracteres.

Poco más se puede saber. Yo al menos.

Sería interesante ver las líneas en cuestión.

Todo era debido a un problema en la implementación.

Gracias.