* from http://d.hatena.ne.jp/layerzero/20090930/p1

[lab.git] / twitter / twitbot.pl

diff --git a/twitter/twitbot.pl b/twitter/twitbot.pl
new file mode 100755 (executable)
index 0000000..b53c6dc
--- /dev/null
+++ b/twitter/twitbot.pl
@@ -0,0 +1,11 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use YAML::Tiny;
+use Net::Twitter;
+
+my $config = (YAML::Tiny->read('config.yml'))->[0];
+my $twit = Net::Twitter->new(username => $config->{'username'}, password => $config->{'password'});
+
+$twit->update('Perl から Twiitter を更新するテストですよー');