Monday, December 5, 2011
ツイッターボット 切り取り線編
もちろんperlなんて書けないので、イロイロなところからパクってきただけですが、
なんとか動きましたww
これは切り取り線のボットですね。
個人的には意外と便利に思います。
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use Net::Twitter;
use Time::Piece ();
use Jcode;
# Twitter OAuth key and token
my $consumer_key = 'my key';
my $consumer_key_secret = 'my key secret';
my $access_token = 'my token';
my $access_token_secret = 'my token secret';
# Twitter OAuth
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 $now = Time::Piece::localtime->strftime('%H:%M');
printf $now;
my $tweet = '<--------------- ' . $now . ' --------------->';
Jcode::convert($tweet, 'utf8');
my $res = $nt->update($tweet);
exit;