Search Twitter for Station 2.0

gistfile1.pl

#!/usr/bin/perl
use utf8;
use strict;

use lib '../../lib';
use common;
use util;

use Net::Twitter;
use Storable qw(nstore retrieve);
use HTTP::Date qw(str2time time2iso);
use Data::Dumper;

my $L = @ARGV ? [] : eval { retrieve 'search.store' };

my $T = Net::Twitter->new( username => 'station20', password => '******' );
my $S = $T->search('#station20', { rpp => 100, since_id => ref $L ? $L->[-1]->{'id'} : 0 });
my @N = reverse @{$S->{'results'} || []};

nstore [@N ? @N : @$L], 'search.store' unless @ARGV;

my $count; $count++, $DB->query(
	'insert into chat set type="twitter", message=?, etc=?, created=?',
	$_->{'text'},
	join('::', @$_{'from_user', 'profile_image_url'}), # ...
	time2iso(str2time($_->{'created_at'}))
) for @N;

print $count;