主页 / user-1766349

user1766349's questions

Martin Hope
user1766349
Asked: 2023-04-27 22:27:11 +0800 CST
  • 5

此代码中类的元素是什么response：或者，我如何打印整个对象response？

#!/usr/bin/env perl


# Example code from Chapter 1 of /Perl and LWP/ by Sean M. Burke

# http://www.oreilly.com/catalog/perllwp/

# [email protected]


require 5;

use strict;

use warnings;


use LWP;


my $browser = LWP::UserAgent->new();

my $response = $browser->get("http://www.oreilly.com/");

die "Couldn't access it: ", $response->status_line

 unless $response->is_success;

print $response->header("Server"), "\n";

__END__
perl
Martin Hope
user1766349
Asked: 2023-04-27 21:21:13 +0800 CST
  • 6

我已经安装了Bundle::LWP，几分钟后我得到了这个

$ perl -MLWP -le "print(LWP->VERSION)"
6.68

听起来不错。但是，运行此脚本

#!/usr/bin/perl


# Example code from Chapter 1 of /Perl and LWP/ by Sean M. Burke

# http://www.oreilly.com/catalog/perllwp/

# [email protected]


require 5;

use strict;

use warnings;


use LWP;


my $browser = LWP::UserAgent->new();

my $response = $browser->get("http://www.oreilly.com/");

die "Couldn't access it: ", $response->status_line

 unless $response->is_success;

print $response->header("Server"), "\n";

__END__

给出这个错误：

$ perl a3.pl
Couldn't access it: 501 Protocol scheme 'https' is not supported (LWP::Protocol::https not installed) at a3.pl line 25.

我该如何解决？

https