#!/usr/bin/perl -w
# oneTweetPerUser: remove all but last tweet of user
# usage: oneTweetPerUser < file
# 20120202 erikt(at)xs4all.nl

%tweets = ();
while (<STDIN>) {
   $line = $_;
   chomp($line);
   $line =~ s/^(\S+)\s+//;
   $user = $1;
   # keep only the first tweet of each user
   if (not defined $tweets{$user}) { $tweets{$user} = $line; }
}

foreach $user (keys %tweets) { print "$user $tweets{$user}\n"; }

exit(0);
