+ -
当前位置:首页 → 问答吧 → Perl LWP::UserAgent指定Host怎么不能打印出html内容

Perl LWP::UserAgent指定Host怎么不能打印出html内容

时间:2011-02-23

来源:互联网

  1. use LWP::UserAgent;

  2. my $ua = LWP::UserAgent->new;
  3. my $req = HTTP::Request->new(GET => '192.168.100.114');
  4. $req->header('Accept'=>'text/html','Host'=>'www.test.com');

  5. my $res = $ua->request($req);

  6. if ($res->is_success) {
  7. print $res->as_string;
  8. print $res->status_line;
  9. }else {
  10. print "Failed: ", $res->status_line, "\n";
  11. }
复制代码


不知道是不是我的语法错误,高手们帮看下

[root@Test Perl]# perl Lwp.pl
Failed: 400 URL must be absolute

作者: mitmax   发布时间: 2011-02-23

GET => 'http://192.168.100.114/'
这样试下

作者: infernor   发布时间: 2011-02-23

回复 infernor


    这样可以 谢谢.

作者: mitmax   发布时间: 2011-02-23