Foro - Perl en Español

Publicado: **2011-09-05 09:41 @445**

¡Hola a todos!

Espero que el verano bien

Bueno, aquí vuelta al trabajo y ¡me he encontrado con una dificultad! Suerte de vosotros ¡je,je,je!

Esta es:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Can't load module HTML::Parser, dynamic loading not available in this perl.

  (You may need to build a new perl executable which either supports

  dynamic loading or has the HTML::Parser module statically linked into it.)

 at /usr/local/lib/perl/5.10.1/HTML/Entities.pm line 154

Compilation failed in require at /usr/local/lib/perl/5.10.1/HTML/Entities.pm line 154.Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Estoy lanzando un código Perl (funciona) desde C++ y surge este error. Es como si no supiera linkar este módulo.

¿Alguna sugerencia?

Gracias

Publicado: **2011-09-05 10:02 @460**

Lo tienes respondido en perlembed, sección Using Perl modules, which themselves use C libraries, from your C program

Publicado: **2011-09-06 05:34 @273**

¡¡¡Gracias, explorer!!!

Como bien dices, aparece en esa web.

Lo explicare por aquí si os parece bien (por si alguien llega al foro y ve la pregunta). (Nota: mi nivel no es alto, así que seguro que habrá una manera más fácil de hacerlo.)

Lo que he hecho para solucionar el problema es crear el fichero:

xsinit.cpp

Sintáxis: [ Descargar ] [ Ocultar ]

Using cpp Syntax Highlighting

EXTERN_C void
xs_init(pTHX)
{
        char *file = __FILE__;
        dXSUB_SYS;
 
        /* DynaLoader is a special case */
        newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
}
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Con su header xsinit.h

Sintáxis: [ Descargar ] [ Ocultar ]

Using cpp Syntax Highlighting

#include <EXTERN.h>
#include <perl.h>
 
EXTERN_C void xs_init (pTHX);
 
EXTERN_C void boot_DynaLoader (pTHX_ CV* cv);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Luego en la llamada para introducir los parámetros necesarios para ejecutar el Perl desde C, se modifica:

perl_parse(my_perl, NULL, argc, my_argv,NULL);

por

perl_parse(my_perl, xs_init, argc, my_argv,NULL);

xs_init() realiza "magia" (indica al intérprete de Perl cómo linkar los ficheros a usar) y el error desaparece y ya puedes usar normalmente el use "Modulo::X".

¡Espero que sea de ayuda a todos!

¡Mil gracias, explorer!

Foro - Perl en Español

Error en Embedded Perl en C++

Error en Embedded Perl en C++

Re: Error en Embedded Perl en C++

Re: Error en Embedded Perl en C++