«

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"?>
<ServerTxnResponse xmlnssd="http://www.w3.org/2001/XMLSchema"
xmlnssi="http://www.w3.org/2001/XMLSchema-instance"
xmlns="https://www.zzzyyyxxx.com">
<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

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"?>
<ServerTxnResponse xmlnssd="http://www.w3.org/2001/XMLSchema"
xmlnssi="http://www.w3.org/2001/XMLSchema-instance"
xmlns="https://www.zzzyyyxxx.com">

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

the XML::Simple documentation is.


On 29 Sep 2004 14:31:24 -0700, (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"?>
><ServerTxnResponse xmlnssd="http://www.w3.org/2001/XMLSchema"
>xmlnssi="http://www.w3.org/2001/XMLSchema-instance"
>xmlns="https://www.zzzyyyxxx.com">
> <StdResponse>
> <Ad1AvsResult />
> <CvcResult />
> <AuthResult>6</AuthResult>
> <AuthCode>789DE</AuthCode>
> ....
> </StdResponse>

Mike H <> wrote in message news:<>. ..
> 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"?>
> <ServerTxnResponse xmlnssd="http://www.w3.org/2001/XMLSchema"
> xmlnssi="http://www.w3.org/2001/XMLSchema-instance"
> xmlns="https://www.zzzyyyxxx.com">
>
> use XML::Simple;
> my $parser = XML::Simple->new();
> my $doc = $parser->XMLin(.....something like that,
>
> the XML::Simple documentation is.
>
>
> On 29 Sep 2004 14:31:24 -0700, (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"?>
> ><ServerTxnResponse xmlnssd="http://www.w3.org/2001/XMLSchema"
> >xmlnssi="http://www.w3.org/2001/XMLSchema-instance"
> >xmlns="https://www.zzzyyyxxx.com">
> > <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