Parsing XML into a Perl structure

[zzapper]

Hi am XML newbie

This is the XML that is returned from a distant server, I can process
it with standard Perl to get the data I want, but I know I ought to be
able to use a Perl Module such as XML::Simple to dump into a Perl
structure automatically, except I can't get it to work.

My xml data is in

$xml= $ua->request($req )->as_string;

can anyone help?

<?xml version="1.0" encoding="utf-8"?>
<ServerTxnRespo nse xmlns:xsd="http ://www.w3.org/2001/XMLSchema"
xmlns:xsi="http ://www.w3.org/2001/XMLSchema-instance"
xmlns="https://www.zzzyyyxxx.c om">
<StdResponse>
<Ad1AvsResult />
<CvcResult />
<AuthResult>6 </AuthResult>
<AuthCode>789DE </AuthCode>
....
</StdResponse>

--
zzapper

vim -c ":%s%s*%Cyrnfr) fcbafbe[Oenz(Zbbyranne% |:%s)[[()])-)Ig|norm Vg?"

http://www.rayninfo.co.uk/tips/ vim, zsh & life tips

[Mike H]

I've used XML::Simple, the only thing I believe I do is remove the
processing instructions which are your 1st 2 directives

<?xml version="1.0" encoding="utf-8"?>
<ServerTxnRespo nse xmlns:xsd="http ://www.w3.org/2001/XMLSchema"
xmlns:xsi="http ://www.w3.org/2001/XMLSchema-instance"
xmlns="https://www.zzzyyyxxx.c om">

use XML::Simple;
my $parser = XML::Simple->new();
my $doc = $parser->XMLin(.....som ething like that,

the XML::Simple documentation is.
On 29 Sep 2004 14:31:24 -0700, da***@tvis.co.u k (zzapper) wrote:

Hi am XML newbie

This is the XML that is returned from a distant server, I can process
it with standard Perl to get the data I want, but I know I ought to be
able to use a Perl Module such as XML::Simple to dump into a Perl
structure automatically, except I can't get it to work.

My xml data is in

$xml= $ua->request($req )->as_string;

can anyone help?

<?xml version="1.0" encoding="utf-8"?>
<ServerTxnResp onse xmlns:xsd="http ://www.w3.org/2001/XMLSchema"
xmlns:xsi="htt p://www.w3.org/2001/XMLSchema-instance"
xmlns="https ://www.zzzyyyxxx.c om">
<StdResponse>
<Ad1AvsResult />
<CvcResult />
<AuthResult>6 </AuthResult>
<AuthCode>789DE </AuthCode>
....
</StdResponse>

[zzapper]

Mike H <mr********@ear think.net> wrote in message news:<qh******* *************** **********@4ax. com>...

I've used XML::Simple, the only thing I believe I do is remove the
processing instructions which are your 1st 2 directives

<?xml version="1.0" encoding="utf-8"?>
<ServerTxnRespo nse xmlns:xsd="http ://www.w3.org/2001/XMLSchema"
xmlns:xsi="http ://www.w3.org/2001/XMLSchema-instance"
xmlns="https://www.zzzyyyxxx.c om">

use XML::Simple;
my $parser = XML::Simple->new();
my $doc = $parser->XMLin(.....som ething like that,

the XML::Simple documentation is.
On 29 Sep 2004 14:31:24 -0700, da***@tvis.co.u k (zzapper) wrote:

Hi am XML newbie

This is the XML that is returned from a distant server, I can process
it with standard Perl to get the data I want, but I know I ought to be
able to use a Perl Module such as XML::Simple to dump into a Perl
structure automatically, except I can't get it to work.

My xml data is in

$xml= $ua->request($req )->as_string;

can anyone help?

<?xml version="1.0" encoding="utf-8"?>
<ServerTxnResp onse xmlns:xsd="http ://www.w3.org/2001/XMLSchema"
xmlns:xsi="htt p://www.w3.org/2001/XMLSchema-instance"
xmlns="https ://www.zzzyyyxxx.c om">
<StdResponse>
<Ad1AvsResult />
<CvcResult />
<AuthResult>6 </AuthResult>
<AuthCode>789DE </AuthCode>
....
</StdResponse>

Mike
With help from you I've succeeded with (it's the parameters for xmlin
which are crucial:-

$xml= $ua->request($req )->content;

my $parser = XML::Simple->new();
my $doc = $parser->XMLin($xml, forcearray => 1, keyattr => list);

print Dumper $doc;

--
zzapper

vim -c ":%s%s*%Cyrnfr) fcbafbe[Oenz(Zbbyranne% |:%s)[[()])-)Ig|norm Vg?"

http://www.rayninfo.co.uk/tips/ vim, zsh & life tips