1234567890秒までの残り時間を表示する。

Perl 30分プログラム

30分プログラム、その524。UNIX time が「1234567890」になる | スラドによれば、今年のバレンタインデーにUnix秒が1234567890秒になるそうです。
というわけで、1234567890秒までの残り時間を表示するプログラムを書いてみよう。

# Hatena::Countingでもやろうと思ったら、あれは日単位での設定しかできなかった。

使い方

$ perl rest.pl
1234567890秒まであと97時間43分56秒

ソースコード

#! /usr/bin/perl
# -*- mode:perl; coding:utf-8 -*-
#
# rest.pl -
#
# Copyright(C) 2009 by mzp
# Author: MIZUNO Hiroki / mzpppp at gmail dot com
# http://howdyworld.org
#
# Timestamp: 2009/02/10 06:25:06
#
# This program is free software; you can redistribute it and/or
# modify it under MIT Lincence.
#

use strict;
use warnings;
use integer;

sub format_time($){
    my ($time) = @_;
    my $hour = $time/(60*60);

    my $rest = $time % (60*60);

    my $min  = $rest / 60;
    my $sec  = $rest % 60;

    sprintf "%02d時間%02d分%02d秒",$hour,$min,$sec;
}

my $now = time();
print "1234567890秒まであと",format_time(1234567890 - $now),"\n";

参考