kiyo_hikoのブログ

メモ+日記?

Perl:秒 → 時分秒

めんどくさかったのでメモル

sub toHms {
    my ($s) = @_;
    map {int} (($s / 3600), ($s % 3600 / 60), ($s % 60))
}

http://oshiete.goo.ne.jp/qa/543775.html