本日をもちまして、会社からもろもろの書類をいただき、無職になりました(正確には明日からです)。
次の職が早く決まるように、自分の意識を高める目的で、無職になってから何日目になるかというのをTwitterプロフィールの名前に設定するスクリプトです。
毎日cronで実行します。
Filename: updateprofile.pl
#!/usr/bin/perl
use strict;
use warnings;
use Config::Pit;
use Net::Twitter;
use Time::Piece ();
use utf8;
use YAML;
my $p = pit_get( 'twitter.com@CLCLCL' );
my $consumer = YAML::LoadFile('./consumer_keys.yaml');
my $nt = Net::Twitter->new(
traits => [qw/API::REST OAuth/],
consumer_key => $consumer->{consumer_key},
consumer_secret => $consumer->{consumer_key_secret},
ssl => 1,
);
$nt->access_token ($p->{access_token});
$nt->access_token_secret($p->{access_token_secret});
die "not preset account data in Pit." if !%$p;
my $start = Time::Piece->localtime( Time::Piece->strptime('2012-04-20T00:00:00', '%Y-%m-%dT%H:%M:%S') );
my $now = Time::Piece->localtime();
my $delta = $now - $start;
my $delta_days = int( $delta->days );
my $profile;
$profile->{name} = "CL無職${delta_days}日目";
my $res = $nt->update_profile($profile);
print Dump($res);
exit;
__END__
特に解説するまでもないですけれども、$startが退職日です。Access TokenとかConsumer Keyとかは、あらかじめ取得しておき、前者なら~/.pit/default.yaml、後者なら同じディレクトリのconsumer_keys.yamlとして用意しておくことが必要です。
enjoy!