Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/env perl
- use strict;
- use warnings;
- use AnyEvent::Twitter::Stream;
- use Config::Pit;
- my $config = pit_get("twitter.com");
- my $cv = AnyEvent->condvar;
- my $listenier = AnyEvent::Twitter::Stream->new(
- username => $config->{username},
- password => $config->{password},
- method => "filter",
- track => "perl,emacs",
- on_tweet => sub {
- my $tweet = shift;
- warn "$tweet->{user}{screen_name}: $tweet->{text}\n";
- },
- on_eof => $cv,
- );
- $cv->recv;
Add Comment
Please, Sign In to add comment