#!/usr/bin/perl -w # # $Revision: 1.2 $ $Date: 2009/08/10 17:48:31 $ # $UUID: cb9afc99-33ea-350d-a9ae-3a6d70c6a0c2 $ # # $dlen) { $day = $sec / $dlen; $sec -= $day * $dlen; } if ($sec > $hlen) { $hr = $sec / $hlen ; $sec -= $hr * $hlen; } if ($sec > $mlen) { $min = $sec / $mlen; $sec -= $min * $mlen; } print "$delta $day:$hr:$min:$sec\n"; exit(0);