perl - 我的 LWP 脚本不工作

Question

我在跑步

#!/usr/bin/perl -w
use strict;
use LWP::Simple;

Answer 1

变量$site有html代码。

您还可以使用该功能getstore将html数据保存到文件中，例如：

my $http_code = getstore( 'http://www.google.com/', 'google.html' );

Answer 2

如果您能看到失败的原因，这将对您有很大帮助。我建议您使用核心LWP而不是简单版本。像这样：

#!/usr/bin/perl

use strict;
use warnings;

use LWP;

my $ua = LWP::UserAgent->new;

my $response = $ua->get('http://www.google.com/');

die 'Couldn't get it: ', $response->status_line unless $response->is_success;

my $site = $response->decoded_content;
print 'Got it.';