Re^2: 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]

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]