Perl LWP的简单使用

概述  使用LWP模块可以做一些简单的事情，比如模拟浏览器去访问、get、post等 *** 作都可以 #!/usr/bin/perl -w  use LWP::UserAgent;  use LWP;  use strict;    my $ua = LWP::UserAgent->new;   $ua->timeout(1);

 

使用LWP模块可以做一些简单的事情，比如模拟浏览器去访问、get、post等 *** 作都可以

  #!/usr/bin/perl -w     use LWP::UserAgent;     use LWP;     use strict;          my $ua = LWP::UserAgent->new;      $ua->timeout(1);      #$ua->env_proxy;      #$ua->agent("Mozilla/5.0 (windows NT 5.1) AppleWebKit/536.11 (KHTML, like Gecko) Chrome/20.0.1132.57 Safari/536.11");      $ua->agent("Mozilla/5.0 www.meijugou.com");           my $response = $ua->get('http://www.meijugou.com');           @H_301_117@if ($response->is_success) {          #print $response->decoded_content;  # or whatever          printf("1\n");      }      @H_301_117@else {          #dIE $response->status_line;          printf("0\n");      }   

LWP::Simple提供了is_success()和is_error()来判断返回是否成功。

使用is_success来判断是否成功，如果返回的头是200-299，那么is_success就返回真。如果400-499的话，那么is_error就返回真。

所以，在使用这个模块的时候，需要特别注意，因为如果你的网站做了301和302跳转的话，那么is_success返回的不是真，那么50x之类的错误，is_error也无法判断。

使用getstore()

函数的用法：

getstore($url,$file_path);

$url是你所需要访问的url，$file_path是输出的文件(如:/tmp/getstore.txt)

getstore将获取的内容放到文件($file_path)里去，而不是放在变量中，而返回的状态码是放在变量中的，如下代码

  my $status=getstore('www.baIDu.com','/tmp/getstore.txt');   

变量$status存储的是http的返回的状态码；而存放在文件里的内容，只能通过open()或者<FH>的方式查看。

总结

以上是内存溢出为你收集整理的Perl LWP的简单使用全部内容，希望文章能够帮你解决Perl LWP的简单使用所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。