+ -
当前位置:首页 → 问答吧 → 关于PWP的基本知识

关于PWP的基本知识

时间:2011-09-09

来源:互联网

有代码照抄如下:Perl code
use strict; 
use LWP; 
my $url = “http://192.168.1.252";
   #--建立LWP ::UserAgent 与HTTP ::Request 物件, 
   #--其中Request对象将$url传进去 
my $agent=LWP::UserAgent->new(); 
my $request = HTTP::Request->new(GET=>$url); 
   #--透过UserAgent的request method将Request送出 
my $response= $agent->request($request); 
   #--检查是否有error发生 
$response->is_success or die "$url: ",$response->message,"\n"; 

  #--显示responser的内容 
print $response->content; 

全本照抄,但是每次都不成功,总是die,也秒知那儿有问题,大家指点下吧

作者: zydscaline   发布时间: 2011-09-09

die后的错误信息什么?

作者: panghuhu250   发布时间: 2011-09-09

就是 $url:can't connect to $url <Bad protocol 'tcp'>
明明我的$url是开着的啊

作者: zydscaline   发布时间: 2011-09-09

直接用$agent->get能成功吗?

作者: iambic   发布时间: 2011-09-09

http://192.168.1.252存在吗?

作者: iambic   发布时间: 2011-09-09

引用 4 楼 iambic 的回复:
http://192.168.1.252存在吗?
存在,换成baidu,在提示后面成了就是 $url:can't connect to $url:80 <Bad protocol 'tcp'>,多了个:80,什么回事啊

作者: zydscaline   发布时间: 2011-09-09

看起来好像你传的url不对。你传的仿佛是'$url',而不是'http://xxx'。

作者: iambic   发布时间: 2011-09-09

你最好贴完整的输出看下。不要自己篡改。

作者: iambic   发布时间: 2011-09-09

引用 5 楼 zydscaline 的回复:
多了个:80,什么回事啊


网络基础知识都不懂,哀

作者: wyjq395   发布时间: 2011-09-09

引用 7 楼 iambic 的回复:
你最好贴完整的输出看下。不要自己篡改。
那就是完整的

作者: zydscaline   发布时间: 2011-09-09

引用 8 楼 wyjq395 的回复:
引用 5 楼 zydscaline 的回复:
多了个:80,什么回事啊


网络基础知识都不懂,哀
我的问题是为什么换别的url(换了几个内外网的),其提示信息都没有“:80”???

作者: zydscaline   发布时间: 2011-09-09