帮忙看看perl脚本错误的地方

影子传说_Hades 2011-05-17 10:09:55
无法通过get得到网页内容,求教



#!/usr/bin/perl
use LWP::Simple qw(get);

$make_proxy_wsdl="www.sina.com:80";
$product_proxy_wsdl="www.sohu.com:80";
$kill_proxy_wsdl="www.baidu.com:80";

@all_wsdl=($make_proxy_wsdl,$product_proxy_wsdl,$kill_proxy_wsdl);

foreach $one_url(@all_wsdl){
print "$one_url\n";
$content = get($one_url);
print "$content\n";
}
...全文
28 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复

2,204

社区成员

发帖
与我相关
我的任务
社区描述
Web 开发 CGI
社区管理员
  • CGI社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧