XMLがオブジェクト内にあるときにXML :: Simpleを使用する方法？

Question

私はこのコード

#!/usr/bin/perl -w 

use strict; 
use URI; 
use LWP::UserAgent; 
use Data::Dumper; 
use XML::Simple; 

my $DBVersion = ''; 

my $url = URI->new('https://example.com'); 

$url->query_form(
    'sql' => 'select email,firstname from account for xml auto', 
    'DBVersion' => $DBVersion 
    ); 

my $response = LWP::UserAgent->new->get($url); 
die "Error: ", $response->status_line unless $response->is_success; 

print $response->content; 

を持っているそして今、私は$response->contentにXML::Simpleを使用したいと思います。

Fromは、私は彼らが

my $doc = $xs1->XMLin($file); 

foreach my $key (keys (%{$doc->{species}})){ 
    print $doc->{species}->{$key}->{'common-name'} . ' (' . $key . ') '; 
    print $doc->{species}->{$key}->{conservation}->final . "\n"; 
} 

しかし、私のXMLデータファイルではなく、LWPモジュールによって作成されたオブジェクトではないでを使用していることがわかります。

XML::Simpleでどのようにデータを解析できますか？

Answer 1

XMLin()は、パラメータとしてXMLの文字列を受け入れることができます。

use XML::Simple; 
my $ref = XMLin($response->content); 

詳細はperldoc XML::Simpleを参照してください。