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