Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 25 lines (20 sloc) 570 Bytes
#!/usr/bin/perl
use Net::Twitter;
$user = shift ;
$pass = shift ;
#slug of the list, not the name, mind you ....
$list = shift ;
my $nt = Net::Twitter->new(
traits => [qw/API::Lists/, 'InflateObjects'],
decode_html_entities => 1,
username => $user,
password => $pass );
my @members;
for ( my $cursor = -1; $cursor; ) {
my $r = $nt->list_members($user, $list, { cursor => $cursor });
push @members, @{$r->users};
$cursor = $r->next_cursor; }
foreach $tweeter (@members)
{
print $tweeter->{screen_name} . "\n" ;
}