Twitterの日付変換とか

twitter_date.pm

package Twitter::Date;

use strict;
use warnings;
use Time::Piece;

sub convert_statuses {
    my ($statuses) = @_;
    my $len = scalar @$statuses;
    $len -= 1 if $len != 0;
    for my $i (0..$len) {
        $statuses->[$i]->{created_at} = twitter_date($statuses->[$i]->{created_at});
    }
    return $statuses;
}

sub twitter_date {
    my ($twitter_dt) = @_;
    return '' unless $twitter_dt;

    my $t = Time::Piece->strptime( $twitter_dt, '%a %b %d %T %z %Y' );
    $t += 60 * 60 * 9;
    return $t;
}

sub twitter_searchdate {
    my ($twitter_dt) = @_;
    return '' unless $twitter_dt;

    my $t = Time::Piece->strptime( $twitter_dt, '%a, %d %b %Y %T %z' );
    $t += 60 * 60 * 9;
    return $t;
}

1;