perl - 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 模块中的 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。