当XML位于对象中时,如何使用XML::Simple?
我有这个密码当XML位于对象中时,如何使用XML::Simple?,xml,perl,lwp,Xml,Perl,Lwp,我有这个密码 #!/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
#!/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
我能看看他们用什么吗
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
解析该数据?XMLin()
可以接受XML字符串作为参数:
use XML::Simple;
my $ref = XMLin($response->content);
有关详细信息,请参阅