#!/usr/bin/perl use strict; use warnings FATAL => qw( all ); use Lingua::EN::Inflect qw(NO); use Win32::Clipboard; use lib '../files/perl/lib'; use Twitter::ListSort qw(list_compare); use Twitter::Data; my %lists = Twitter::Data::all_lists; # This is all of the lists I keep across all my accounts. my $board; for my $list (sort { list_compare($a,$b) } values %lists) { # Starting the loop. next if !grep(/owner/,@{$list->{status}}); my $targ = $list->{target}; my $link = $list->{link}; my $name = length($list->{long_name}) ? $list->{long_name} : $list->{name}; my $targ_text = $targ > 0 ? " (".NO('subscriber',$targ)." 'til target met)" : ''; my $asterisk = $list->{user} eq "Lady_Aleena" ? '*' : ''; $board .= qq(
##
#!/usr/bin/perl
use strict;
use warnings FATAL => qw( all );
use Lingua::EN::Inflect qw(WORDLIST);
use Text::Table;
use Win32::Clipboard;
use lib '../files/perl/lib';
use Twitter::Data;
my @accounts = Twitter::Data::accounts;
my %lists = Twitter::Data::all_lists;
my %lists_people = Twitter::Data::lists_people;
my @subscribers = @{$lists{'72710881'}{members}};
local $\ = "\n";
# 1 above.
print 'Subscribers not on the list';
for my $subscriber (keys %{$lists_people{subscribers}}) {
my $s_lists = WORDLIST(@{$lists_people{subscribers}{$subscriber}}, {conj=>''});
print "$subscriber - $s_lists" if !grep($_ eq $subscriber,@subscribers);
}
print "\n";
# 2 above.
print 'Non-subscribers on the list';
for my $subscriber (@subscribers) {
print $subscriber if !$lists_people{subscribers}{$subscriber};
}
print "\n";
# 3 above
print 'People followed but not listed (by account)';
for my $account (@accounts) {
next if $account =~ /^(LadyAleena_(?:eros|test))$/;
my %account_people = Twitter::Data::acct_data($account,'people');
my @not_members;
for my $person (values %account_people) {
my $name = $person->{screen_name};
push @not_members, $name if ($person->{friends} == 1 && !$lists_people{members}{$name});
}
local $\ = "\n";
if (scalar(@not_members) > 0) {
print "$account";
for (sort {lc $a cmp lc $b} @not_members) {
$board .= "\t$_\n";
print "\t$_";
}
}
}