neelakash21 has asked for the wisdom of the Perl Monks concerning the following question:
use Net::Twitter; use Scalar::Util 'blessed'; use Net::Twitter::Search; # When no authentication is required: my $nt = Net::Twitter->new(legacy => 0); $consumer_key = "x"; $consumer_secret = "y"; $token = "z"; $token_secret = "w"; # As of 13-Aug-2010, Twitter requires OAuth for authenticated requests my $nt = Net::Twitter->new( traits => [qw/OAuth API::REST/], consumer_key => $consumer_key, consumer_secret => $consumer_secret, access_token => $token, access_token_secret => $token_secret, ); my $twitter = Net::Twitter::Search->new(); my $results = $twitter->search('smoking'); foreach my $tweet (@{$results}) { my $speaker = $tweet->{from_user}; my $text = $tweet->{text}; my $time = $tweet->{created_at}; print "$time <$speaker> $text\n"; } }
I am new to perl. I am getting an error "Not an ARRAY reference at line #" for the above code. Can anyone please help me with this problem?
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Not an array reference Twitter API
by tobyink (Canon) on Sep 12, 2012 at 21:14 UTC | |
by neelakash21 (Initiate) on Sep 13, 2012 at 21:21 UTC | |
|
Re: Not an array reference Twitter API
by Voronich (Hermit) on Sep 13, 2012 at 14:32 UTC | |
by neelakash21 (Initiate) on Sep 13, 2012 at 21:22 UTC | |
by Anonymous Monk on Apr 15, 2013 at 20:03 UTC |