im.kayac.comã¨ããã«ã¤ãã¯ã®ãµã¼ãã¹ããããã§ãããããã使ãã¨IMã¨ãã«HTTPã¨ãã¡ã¼ã«çµç±ã§éç¥ãããã¨ãã§ãã¦ãiPhoneã«ã対å¿ããã®ã§twitterã§ãªãã©ã¤ããã£ããéç¥ããã¹ã¯ãªããæ¸ãã¦ã¿ã¾ããã #!/usr/bin/env perl use strict; use warnings; use AnyEvent::Twitter::Stream; use AnyEvent::HTTP; use HTTP::Request::Common; my $done = AnyEvent->condvar; my $streamer = AnyEvent::Twitter::Stream->new( username => 'twitter_username', password => 'twitter_password', method => 'filter',
{{#tags}}- {{label}}
{{/tags}}