#!/usr/bin/perl

# twitter.pl - query Twitter and output results

# Eric Lease Morgan <eric_morgan@infomotions.com>
# December 8, 2010 - first hack; boy, net::twitter::lite requires a lot!

# configure
use constant QUERY => '#idcc10';

# require
use strict;
use Net::Twitter::Lite;

# initialize
my $nt = Net::Twitter::Lite->new;
my $page = 1;

# search & retreive
while ( my $r = $nt->search( '#idcc10', { page => $page } )) {

    # process results
    for my $status ( @{$r->{results}} ) {
    
        # munge
        my $tweet = $status->{text};
        $tweet =~ s/#idcc10//g;
        $tweet =~ s/RT//g;
        $tweet = lc( $tweet );
        
        # output
        print "$tweet\n";
        
    }
    
   # increment
   $page++;

}

# done
exit;