Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- use strict;
- use warnings;
- use utf8;
- use AnyEvent;
- use AnyEvent::Twitter;
- use AnyEvent::Twitter::Stream;
- use Config::Pit;
- use Growl::Any;
- my $auth = Config::Pit::get('twitter.koetter');
- my $cv = AE::cv;
- my @tweets;
- my $method = 'filter';
- my $name = 'Koetter_dev';
- my $growl = Growl::Any->new;
- $growl->register('twitter.pl', ['Default']);
- $growl->notify('', 'twitter.pl', '起動...');
- my $pop = AnyEvent->timer(
- after => 0,
- interval => 6,
- cb => sub {
- if(scalar @tweets >= 1) {
- my $tweet = shift @tweets;
- $growl->notify($tweet->{user}->{profile_image_url}, $tweet->{user}->{name}, $tweet->{text}, $tweet->{user}->{profile_image_url});
- }
- },
- );
- my $stream = AnyEvent::Twitter::Stream->new(
- %$auth,
- method => $method,
- track => '@' . $name,
- on_tweet => sub {
- my $tweet = shift;
- push @tweets, $tweet;
- },
- on_error => sub {
- my $tweet = shift;
- print "ERROR: $tweet\n";
- },
- );
- $cv->recv;
- __END__
Add Comment
Please, Sign In to add comment