Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re^4: How do I use curl with perl and Twitter

by northwestdev (Acolyte)
on Jul 21, 2009 at 07:24 UTC ( [id://781876]=note: print w/replies, xml ) Need Help??


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

Actually, you're shielded from the URL only if you use certain methods. show_user is not one of them: you need to specify a user, and a format in the URL. I should be setting apiurl instead of apihost. Confusion resulting from using apihost in PHP with curl. In any case, I figured out why I kept getting error 500. I took out all code, except for a statement to print out Hello World. When I commented out the use Net::Twitter, it printed out fine, and when I put it back in, I got error 500. This happened on a hosting account I have on goDaddy and another I have on a generic Apache Host. So, it seems as if Net::Twitter is not in general use as a Perl module.
  • Comment on Re^4: How do I use curl with perl and Twitter

Replies are listed 'Best First'.
Re^5: How do I use curl with perl and Twitter
by Corion (Patriarch) on Jul 21, 2009 at 07:32 UTC

    I don't see, neither from the documentation nor from the Net::Twitter code, where you would need to construct an URL, or a format yourself. The ->show_user method seems to take a user ID, it requests the JSON formatted user details and then turns them into a Perl data structure.

    If you don't have Net::Twitter installed on your host, you can easily install it, by following Yes, even you can use CPAN

      Net::Twitter is installed. I am no longer getting errors, but this piece of code is not producing any output (and the foreach loop is straight out of http://cpansearch.perl.org/src/CTHOM/Net-Twitter-2.06/README
      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>"; }

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others perusing the Monastery: (4)
As of 2025-05-24 23:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?
    erzuuliAnonymous Monks are no longer allowed to use Super Search, due to an excessive use of this resource by robots.