关于C代码中嵌入调用Perl程序问题

tampras

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 = "百度网址(...)";
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嵌入代码中追加相关环境变量的设定，还望各位大神赐教！！

tc1989tc

Please refer to following link:
http://www.perlmonks.org/?node_id=1002057