end0tknr's kipple - web写経開発

太宰府天満宮の狛犬って、妙にカワイイ

Time::Duration::ja で human-readable な経過時間を表示

先程のエントリに続き、またも「perl cpanモジュールガイド」から。

viewvcやtracでは、commitからの経過時間を?日前や?ヶ月前のように表示しますが、
perlでは、Time::Duration::ja が、これを実現してくれるようです。

tracの例

perl src

#!/usr/local/bin/perl
use strict;
use Time::Duration::ja;

main();

sub main {
    print earlier(0),"\n";
    print earlier(300),"\n";
    print earlier(30000),"\n";
    print earlier(300000),"\n";
}

実行結果

$ ./foo.pl 
現在
5分前
8時間20分前
3日11時間前

それにしてもイイ感じです。「perl cpanモジュールガイド」