Using Perl modules, which themselves use C libraries, from your C pr
+ogram
    If you've played with the examples above and tried to embed a scri
+pt
    that *use()*s a Perl module (such as *Socket*) which itself uses a
+ C or
    C++ library, this probably happened:

     Can't load module Socket, dynamic loading not available in this p
+erl.
      (You may need to build a new perl executable which either suppor
+ts
      dynamic loading or has the Socket module statically linked into 
+it.)

    What's wrong?

    Your interpreter doesn't know how to communicate with these extens
+ions
    on its own. A little glue will help. Up until now you've been call
+ing
    *perl_parse()*, handing it NULL for the second argument:

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

    That's where the glue code can be inserted to create the initial c
+ontact
    between Perl and linked C/C++ routines. Let's take a look some pie
+ces of
    *perlmain.c* to see how Perl does this:

     static void xs_init (pTHX);

     EXTERN_C void boot_DynaLoader (pTHX_ CV* cv);
[download]

If you run perl -V, do you see anything for "Dynamic Linking"? If not, you'll probably have to rebuild Perl.

If the error is the same, you need to try again. The only way is to recompile perl with support for dynamic loading.

I got it.

Last friday,I passed my program.Now I will share my solution.

1---->perl_parse(my_perl, NULL, argc, my_argv, NULL);
2---->  perl -MExtUtils::Embed -e xsinit -- -o perlxsi.c
     cc -c perlxsi.c `perl -MExtUtils::Embed -e ccopts`
[download]

Then perlxsi.c document has created.The file is:

--------------------------------

 static void xs_init (pTHX);
 EXTERN_C void boot_DynaLoader (pTHX_ CV* cv);
 EXTERN_C void boot_Socket (pTHX_ CV* cv);
 EXTERN_C void
 xs_init(pTHX)
 {
        char *file = __FILE__;
        /* DynaLoader is a special case */
        newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
        newXS("Socket::bootstrap", boot_Socket, file);
 }
[download]

------------------------------

That's where the glue code can be inserted to create the initial contact between Perl and linked C/C++ routines. Let's take a look some pieces of perlmain.c to see how Perl does this:

Once you have this code, slap it into the second argument of perl_parse():

3----->perl_parse(my_perl, xs_init, argc, my_argv, NULL);
       and the file interp.c must include "perlxsi.c";

4-----> cc -o interp interp.c `perl -MExtUtils::Embed -e ccopts -e ldo
+pts`
     interp
[download]

I wish it could help somebody.

If you want to connect with me ,this is my email:

shengzongxian@gmail.com

Edited by planetscape - added code tags