#!/usr/bin/perl
use strict;
use AnyEvent::Twitter::Stream;
use Term::ANSIColor::Markup;
use Encode;

my $user="hoge";
my $password="hoge";
my $length="180";

my $cv = AnyEvent->condvar;
my $listenier = AnyEvent::Twitter::Stream->new(
    username => $user,
    password => $password,
    method   => "filter",
    track    => "MW2,cod4,xbox360,perl,nowplaying,dommune,ipad",
    on_tweet => sub {
        my $tweet = shift;
        my $text = encode_utf8($tweet->{text});
        my $time=$tweet->{created_at};
        my $name=$tweet->{user}{screen_name};
        if( ($text =~ /[あ-んア-ン]/ )&&( length($text) >$length ) ) {
            my $parser = Term::ANSIColor::Markup->new;
            my $contents = qq{<on_magenta>$name</on_magenta> <on_green>$time</on_green>¥n$text¥n¥n};
            $parser->parse($contents);
            print $parser->text;
        }
    },
    on_eof => $cv,
);
$cv->recv;