無職になってからの日数をTwitterの名前に設定するスクリプト

Tweet

本日をもちまして、会社からもろもろの書類をいただき、無職になりました（正確には明日からです）。

次の職が早く決まるように、自分の意識を高める目的で、無職になってから何日目になるかというのを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!

2012.04.20 16:46 投稿　大野 義貴 [Perl] | 固定リンク |