perl抓取网页LWP::Simple

perl简易抓取页面程序

  1. #!/usr/bin/perl
  2. use strict;
  3. use LWP::Simple;
  4. my $url = 'http://www.baidu.com';
  5. my $go = get($url);
  6. print "$go\n";
1 1