perl调c出错

席戛戛 2012-09-18 03:25:25

简单的例子：
假如你所用的库是mylib.a 头文件是mylib.h
　　假如mylib.h像以下内容：
　　　　　 extern void hello();
　　hello()函数假如执行如下功能：
　　 void hello()
　　 {
　　　　 printf("Success call from perl to c libray!\n";
　　 }
一、建立工作目录mytest，把mylib.a和mylib.h放到mytest中
二、在mytest的上层目录执行
　　　　h2xs -O -n mytest ./mytest/mylib.h
三、进入mytest，修改mytest.xs,在文件末尾增加perl接口
　　　 Void
　　 hello()
　　　　　　CODE:
　　　　　　 hello();
　　改变#include <./mytest/mylib.h>
　　为 #include "mylib.h"
　　一般情况下此行都需要修改。
　　
四、修改Makefile.PL,其中#add begin和#add end中间的内容是新增加的。
　　 use ExtUtils::MakeMaker;
　　 # See lib/ExtUtils/MakeMaker.pm for details of how to influence
　　 # the contents of the Makefile that is written.
　　 WriteMakefile(
　　　　'NAME'　　　=> 'mytest',
　　　　'VERSION_FROM' => 'mytest.pm', # finds $VERSION
　　　　'LIBS'　　　=> [''],　 # e.g., '-lm'
　　　　'DEFINE'　　=> '',　　 # e.g., '-DHAVE_SOMETHING'
　　　　'INC'　　　 => '',　　 # e.g., '-I/usr/include/other'
　　　　#add begin
　　　　'MYEXTLIB'　=> 'mylib.a',
　　　　#add end
　　 );
　　　　#add begin
　　 sub MY::postamble()
　　 {
　　 '
　　 $(MYEXTLIB): .
　　 ';
　　 #add end
　　 }
五、执行perl Makefile.PL，让perl生成makefile
六、执行make
七、修改测试文件test.pl,修改完毕后改变为可执行
　　　　#!/usr/bin/perl
　　　　# Before `make install' is performed this script should be runnable with
　　　　# `make test'. After `make install' it should work as `perl test.pl'
　　　　######################### We start with some black magic to print on failure.
　　　　# Change 1..1 below to 1..last_test_to_print .
　　　　# (It may become useful if the test is moved to ./t subdirectory.)
　　　　use ExtUtils::testlib;
　　　　BEGIN { $| = 1; print "1..1\n"; }
　　　　END {print "not ok 1\n" unless $loaded;}
　　　　use mytest;
　　　　$loaded = 1;
　　　　print "ok 1\n";
　　　　######################### End of black magic.
　　　　# Insert your test code below (better if it prints "ok 13"
　　　　# (correspondingly "not ok 13") depending on the success of chunk 13
　　　　# of the test code):
　　　　mytest::hello();
　　　　
八、此时你应该能够看到　　　　
Success call from perl to c libray!

使用以上方法perl调C 5.10版本的perl中是能成功调用的，但是在5.8版本出现以下错误！！请高手指点
[root@bogon mytest]# perl test.pl
1..1
Can't load '/liuyu/Test/mytest/blib/arch/auto/mytest/mytest.so' for module mytest: /liuyu/Test/mytest/blib/arch/auto/mytest/mytest.so: cannot restore segment prot after reloc: Permission denied at /usr/lib/perl5/5.8.8/i386-linux-thread-multi/DynaLoader.pm line 230.
at test.pl line 11
Compilation failed in require at test.pl line 11.
BEGIN failed--compilation aborted at test.pl line 11.
not ok 1
[root@bogon mytest]#

...全文