Here’s the code that I’m using. I have omitted the keys and the tokens below:
use Net::Twitter;
my $nt = Net::Twitter->new(legacy => 0);
$consumer_key = “”;
$consumer_secret = “”;
$token = “”;
$token_secret = “”;
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,
);
$tid = “256122168813965312”;
eval{
my $statuses = $nt->retweets({ id => $tid });
for my $status ( @$statuses ) {
print “$status->{id_str}\t$status->{created_at}\t<$status->{user}{screen_name}>\t$status->{text}\n”;
}
};
if( $@ ){
print “$@\n”;
}
