Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

Re: Send JSON data to Perl scalar

by tobyink (Canon)
on Dec 21, 2012 at 15:46 UTC ( #1009929=note: print w/replies, xml ) Need Help??

in reply to Send JSON data to Perl scalar

I think what you're looking for is...

use LWP::Simple qw(get); use JSON qw(from_json); my $username = 'ESPN'; my $data = from_json get "${username}.json"; print $username, " has ", $data->{followers_count}, " followers.\n";
perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

Replies are listed 'Best First'.
Re^2: Send JSON data to Perl scalar
by perl.j (Pilgrim) on Dec 21, 2012 at 17:35 UTC

    This is great! My only issue here is speed, since this is going to be run about once every minute or two.


      I don't see why that would be a problem. That script takes about 1.2 seconds to execute on my laptop (and this machine is pretty old and underpowered), so could comfortably execute 30 or 40 times per minute.

      Though probably if I wanted to retrieve this data more than once a minute, I'd probably just add a loop to the script so that you execute it once and it runs in the background, repeatedly retrieving the data.

      perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1009929]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (5)
As of 2023-10-01 04:29 GMT
Find Nodes?
    Voting Booth?

    No recent polls found