Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re: Send JSON data to Perl scalar

by tobyink (Canon)
on Dec 21, 2012 at 15:46 UTC ( [id://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 "http://twitter.com/users/${username}.json";

print $username, " has ", $data->{followers_count}, " followers.\n";

[download]
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.

    --perl.j
[reply]

      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'
[reply]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://1009929]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others romping around the Monastery: (3)
As of 2024-04-25 16:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found