Perl：下载远程html页面？

Question

在perl中，如何将远程html页面下载到本地计算机？例如

http://example.com/catalog/lperl3/chapter/ch04.html

我需要使用Perl下载这个html源代码，怎么做？

Answer 1

查看LWP::Simple模块。

use strict;
use warnings;
use LWP::Simple;

my $status = getstore('http://myweb.com/catalog/lperl3/chapter/ch04.html', 'ch04.html');
unless (is_success($status)) {
  die "An error has occured! Status code: $status\n";
}

Answer 2

使用LWP :: Simple module中的getstore

use LWP::Simple;
getstore('http:://example.com/index.html', 'something.html');

Answer 3

您可以使用Mojo::UserAgent：

use Mojo::UserAgent;

my $url = 'http://oreilly.com/catalog/lperl3/chapter/ch04.html';

Mojo::UserAgent
    ->new
    ->get( $url )
    ->res
    ->content
    ->asset
    ->move_to( 'ch04.html' )

您应该获得更新版的Learning Perl。