2014-04-24 Perl:秒 → 時分秒 Perl めんどくさかったのでメモル sub toHms { my ($s) = @_; map {int} (($s / 3600), ($s % 3600 / 60), ($s % 60)) } http://oshiete.goo.ne.jp/qa/543775.html