X-Git-Url: http://lab.mitty.jp/git/?a=blobdiff_plain;f=twitter%2Fnt_bot.pl;fp=twitter%2Fnt_bot.pl;h=3fec52ebd108e09cc3518e8feec9ec49e8440290;hb=c78c702bb1c017f8c37d5b6e1068e65934244b65;hp=0000000000000000000000000000000000000000;hpb=013d01080b5b91d0f7b5f85d22a90619d264c745;p=lab.git

diff --git a/twitter/nt_bot.pl b/twitter/nt_bot.pl
new file mode 100755
index 0000000..3fec52e
--- /dev/null
+++ b/twitter/nt_bot.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use utf8;
+use Net::Twitter;
+
+my $consumer_key = 'CONSUMER_KEY';
+my $consumer_key_secret = 'CONSUMER_KEY_SECRET';
+my $access_token = 'ACCESS_TOKEN';
+my $access_token_secret = 'ACCESS_TOKEN_SECRET';
+
+my $nt = Net::Twitter->new(
+  traits          => ['API::REST', 'OAuth'],
+  consumer_key    => $consumer_key,
+  consumer_secret => $consumer_key_secret,
+);
+$nt->access_token($access_token);
+$nt->access_token_secret($access_token_secret);
+
+my $res = $nt->update({ status => "test tweet!" });