Re^2: Using eval, but always undef?


more useful options
	PerlMonks

Re^2: Using eval, but always undef?

by ultranerds (Hermit)

on Mar 01, 2012 at 17:53 UTC ( [id://957281]=note: print w/replies, xml )

Need Help??

in reply to Re: Using eval, but always undef?
in thread Using eval, but always undef?

Mmm ok, I was hoping it was simpler than that. Maybe I'll just do:

$test =~ /\Q"type":"ServiceException",/

...on the XML string, so I can see if it is as "bad" file :)

Thanks for the replies though.

Cheers

Andy

Comment on Re^2: Using eval, but always undef?

Replies are listed 'Best First'.

Re^3: Using eval, but always undef?
by Your Mother (Archbishop) on Mar 01, 2012 at 17:59 UTC

It is simple (JSON).

use JSON;

my $json_string = q|{
  "error":{
    "type":"ServiceException",
    "code":108,
    "message":"(#108) No results founds"
  }
}|;

my $perl_ref = decode_json($json_string);

print $perl_ref->{error}{type}, $/;

__END__
ServiceException
[download]

Don't fudge it. Use the right tools. Everything else is false economy.

[reply]
[d/l]

In Section Seekers of Perl Wisdom