perl - Perl-LWPUserAgentの不正なURLエラーメッセージ

Question

$ URLが存在しないか応答しない場合、$PageDataを「$PageData=ページが見つかりません」などのエラーメッセージに設定するにはどうすればよいですか？私はそれを機能させることができないようです。

use LWP::UserAgent;
use HTTP::Request;

my $URL = "http://www.MyDomain.com/;

my $Request = HTTP::Request->new("GET", $URL);   
my $UserAgent = LWP::UserAgent->new(timeout => 5); 
my $Result = $UserAgent->request($Request);        

return unless $Result->is_success;    
$PageData = $Result->content;

print $PageData;

Answer 1

次のコードでライブラリHTTP::Statusを使用してみてください。

use ...
use HTTP::Status qw(:constants :is status_message);

my $url = ...
my $request = HTTP::Request->new(GET => $url);
my $ua = LWP::UserAgent->new;
my $response = $ua->request($request);
if ($response->is_error) {
  print STDERR $response->status_line, "\n";
  print STDERR status_message($response->status_line), "\n";
  print STDERR $response->error_as_HTML, "\n";
}
else {
  print $response->decoded_content;
}