Мой 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.';