Skip to content

Instantly share code, notes, and snippets.

#!/usr/bin/perl
# Ported http://dacp.jsharkey.org/ to Perl
use strict;
use AnyEvent;
use AnyEvent::Socket;
use AnyEvent::HTTP;
use Net::Rendezvous::Publish;
use Net::DAAP::DMAP qw(:all);
my $port = 10020;
@sekimura
sekimura / twitter_displayer.pl
Created March 21, 2010 01:52 — forked from miyagawa/tweet_displayer.pl
fixed name of this script itself and added "feature" pragma
#!/usr/bin/perl
# TWITTER_USERNAME=xxx TWITTER_PASSWORD=xxx plackup -s Twiggy twitter_displayer.pl
use AnyEvent::Twitter::Stream;
use Markapl;
use autobox::Core;
use autobox::Encode;
use feature qw(state);
my $buf = [];
@sekimura
sekimura / .gitignore
Created September 6, 2011 07:06 — forked from pcardune/.gitignore
Facebook command-line client helper
.fb_access_token
.fbconsole.py