2 tampras tampras 于 2016.01.22 18:04 提问

请教大神!C代码中嵌入调用Perl程序问题?

C代码中嵌入调用Perl程序,已根据调查完成如下的代码编写:

static PerlInterpreter my_perl;//定义一个perl解释器
PERL_SYS_INIT3(NULL,NULL,NULL);//语句执行perl环境的初始化
my_perl = perl_alloc();//为解释器分配资源
if(!my_perl){
return;}
perl_construct( my_perl );//创建一个解释器
char *embedding[] = {"","D:\GetHttp.pl ",""};
perl_parse( my_perl, NULL, 0, embedding,(char
*)NULL);
perl_run(my_perl);
perl_destruct(my_perl);//析构解释器
perl_free(my_perl);//释放解释器

PERL_SYS_TERM();

已能在C运行环境(VS2008)中自动执行"D:\GetHttp.pl",但问题是执行的结果和在命令行运行"Perl D:\GetHttp.pl"不一致
(个人理解既然是Perl文件的解析执行,同一台电脑WIN系统运行结果应该是完全一样的)

该GetHttp.pl主要是执行访问网址,获取访问信息,代码如下:

#!/usr/bin/perl #!
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $server_endpoint = "https://www.baidu.com";
my $req = HTTP::Request->new(GET => $server_endpoint);
my $resp = $ua->request($req);
if ($resp->is_success) {
my $message = $resp->content;
print "Received reply: $message\n";
}
else {
print "HTTP GET error code: ", $resp->code, "\n";
print "HTTP GET error message: ", $resp->message, "\n";

}

系统命令行运行结果:($resp->is_success)的判定结果为True,可打印出返回信息内容
C编译环境(VS2008)运行结果:($resp->is_success)的判定结果为False,返回错误代码:501,(attemp to reload IO/Socket.pm aborted)

估计应该是VS2008的编译环境中某个设置有问题,或者是还需要再C嵌入代码中追加相关环境变量的设定,还望各位大神赐教!!

2个回答

devmiao
devmiao   Ds   Rxr 2016.01.22 23:32
tampras
tampras   2016.01.25 09:50

感谢回复,上述网址内容已经拜读过
基本处理已经OK,但是还是没法解释原来的问题

Csdn user default icon
上传中...
上传图片
插入图片