http://qs1969.pair.com?node_id=781988


in reply to Re^2: How do I use curl with perl and Twitter
in thread How do I use curl with perl and Twitter

You're making this far harder than it needs to be.

#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;
use Net::Twitter;

my $nt = Net::Twitter->new;

print Dumper $nt->show_user('davorg');

[download]

You don't even need to authenticate unless you're trying to access a user who has protected their updates.

--

See the Copyright notice on my home node.

Perl training courses

Replies are listed 'Best First'.
Re^4: How do I use curl with perl and Twitter
by northwestdev (Acolyte) on Jul 21, 2009 at 17:40 UTC
    The reason why I need to authenticate, is that Twitter rate limits its non-authenticated API calls to a small number of calls every hour. Authenticated (and pre-authorized) accounts, get a much bigger allowance. I did get Net::Twitter installed, and I'm about to test it.
[reply]
Re^4: How do I use curl with perl and Twitter
by northwestdev (Acolyte) on Jul 21, 2009 at 19:50 UTC
    FYI: I am a Perl newbie. It is somewhat working, but I cannot figure out why this piece of code is not producing any output: 
    my $nt = Net::Twitter->new(
   traits   => [qw/API::REST/],
   username => $usename,
   password => $pwd
  );

my $results = $nt->show_user($twitterID);

foreach my $user (@{ $results }) {
    my $id =  $user->{id};
    my $name = $user->{name};
    print STDOUT $id."   ".$name."<br>";
}

    [download]
    No error messages either. I know it's about the way I am accessing the $user hash. I did some perl reading, and even one of the examples in Net::Twitter uses the same code.
[reply]
[d/l]

      This is one of those (many) places where use warnings will tell you exactly what you are doing wrong.

      Not an ARRAY reference at ./twit line 13.

      The value you're getting back in $result is a hash reference. You can't treat it as an array reference.

      Coding without use warnings is stupid. Don't do it.

      --

      See the Copyright notice on my home node.

      Perl training courses

[reply]

In Section Seekers of Perl Wisdom