我的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.';