主页 / computer / 问题 / 1781182
Accepted
user1766349
Asked: 2023-04-27 22:27:11 +0800 CST

Perl LWP：如何打印获取的结果？

  • 772

此代码中类的元素是什么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

1 个回答

  1. Best Answer

    像这样，如果你想获取内容HTML：

    use strict; use warnings;

my $arg1 = "Rower";

# Create a user agent object
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;

# Create a request
my $req = HTTP::Request->new(GET => "http://pl.wikipedia.org/wiki/$arg1");

# Pass request to the user agent and get a response back
my $res = $ua->request($req);

# Check the outcome of the response
die $res->status_line, "\n" unless $res->is_success;

# Here we go
my $content = $res->content;
print $content;

    或者，如果您想从字面上获取$res内容对象以供检查：

    use Data::Dumper;
print Dumper $res;
    • 1

相关问题