Funny that it loads there but not with JSON, did you have a "use JSON::XS;" statment already in the program you ran the last time? It seems you have both of them.
kcott had some good debug tips at Re: pl script in webserver. Besides those there could be an error in your input to decode; you could try this.
Running the decode inside an eval will trap any "die", and $@ will contain the error you would have died with.eval {$respons = JSON::XS->new->decode ($res->content);} ; print 'json decode error:'.$@ ."\n" if ($@);
It is quite possible the error involves html encoding of data. This may fix that.
eval {$respons = JSON::XS->new->decode ($res->decoded_content);} ; print 'json decode error:'.$@ ."\n" if ($@);
it is quite possible that it is both html and UTF encoding problems. This would fix that
If your web page came with proper utf settings, the content may already be marked with the utf flag and that may introduce its own error saying you cant decode data that is already marked utf. But i have gotten response content data that did not have the proper utf settings in the html before. This example came from code playing with the wordpress api.use Encode; eval {$respons = JSON::XS->new->decode (Encode::decode_utf8($res->deco +ded_content));}; print 'json decode error:'.$@ ."\n" if ($@);
In reply to Re^3: pl script in webserver
by huck
in thread pl script in webserver
by bigup401
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |