Daily Archives: January 6, 2010

Friendly Followers and Followings of Friends on Twitter

Posted by on January 6, 2010 2 comments

Jay Gold wrote a good blog entry entitled ‘Follow Back: How I Choose Who to Follow on Twitter’.

Jay has some really good points and a nice strategy for his tweeteria.

I am not a big fan of the whole follow me and I follow you back. You might not find my tweets interesting even though I find yours. This has a side effect that I always have more followers than friends, simply because I cannot control how many people choose to follow me and I only add people whom I would like to follow, since their tweets are of interest to me – well that and I am a lazy bastard.

Web Upd8 had an article on ReFollow.com an online service to manage your Twitter friends and followers. The service helps you to get a nice picture of your friends and followers and who are both friends and followers.

Anyway, due to my lazy attitude I actually wrote up a Perl application prior to trying out ReFollow.com. So here it is if you are interested. The application show you your friends, followers and people in both groups, so you can easily identify people whom you follow, but you do not follow and vice versa.

  1. #!/usr/bin/perl
  2. # $Id$
  3. use strict;
  4. use warnings;
  5. use Getopt::Long;
  6. use Pod::Usage;
  7. use Net::Twitter::Lite;
  8. use List::MoreUtils qw(any);
  9. use English qw( -no_match_vars );
  10. my $username;
  11. my $password;
  12. GetOptions( 'username=s' => \$username, 'password=s' => \$password );
  13. if ( not $username ) {
  14.     pod2usage(1);
  15. }
  16. if ( not $password ) {
  17.     print "Please provide password: ";
  18.     $password = <STDIN>;
  19.     chomp $password;
  20. }
  21. my $nt = Net::Twitter::Lite->new(
  22.     username => $username,
  23.     password => $password,
  24. );
  25. my $friends_list   = $nt->friends();
  26. my $followers_list = $nt->followers();
  28.     $friends_list   = $nt->friends();
  29.     $followers_list = $nt->followers();
  30. };
  31. if ($EVAL_ERROR) {
  32.     die “Unable to connect to twitter - $EVAL_ERROR”;
  33. }
  34. my @friends = map { $_->{screen_name} } @{$friends_list};
  35. my @friends_and_followers;
  36. my @followers;
  37. my $i = 0;
  38. for my $follower ( @{$followers_list} ) {
  39.     if ( any { $_ eq $follower->{screen_name} } @friends ) {
  40.         push @friends_and_followers, $follower->{screen_name};
  41.     }
  42.     push @followers, $follower->{screen_name};
  43.     $i++;
  44. }
  45. print “Friends and Followers (“ . scalar @friends_and_followers . “):\n”;
  46. print join ‘, ‘, @friends_and_followers;
  47. print “\n\nFriends (“ . scalar @friends . “):\n”;
  48. print join ‘, ‘, @friends;
  49. print “\n\nFollowers (“ . scalar @followers . “):\n”;
  50. print join ‘, ‘, @followers;
  51. print “\n”;
  52. exit 0;
  53. __END__
  54. =pod
  55. =head1 NAME
  56. twitter.pl - CLI twitter client
  57. =head1 SYNOPSIS
  58.     twitter.pl [options] 
  59.     Options:
  60.     --username <username>
  61.     --password <password>
  62. =head1 OPTIONS
  63. =over 8
  64. =item B<--username> Twitter username, this parameter is mandatory
  65. =item B<--password> Twitter password, this parameter is optional, if not provided you will be prompted for a password.
  66. =back

iPhone Photo Weirdness

Posted by on January 6, 2010 No comments

I have taken a few pictures with my iPhone, sometimes I accidentally move the camera too fast after clicking the button. This renders some weird results – see for yourself

IMG_0064.png

Second picture to document how it actually looks

IMG_0065.png