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를 참조하십시오.