perl-Time-Duration

Este módulo proporciona funciones para expresar duraciones en términos redondeados o exactos. En el primer ejemplo de la Synopsis, usando duration($interval_seconds): Si 'time() - $start_time' es 3 segundos, imprime "Runtime: *3 seconds*". Si es 0 segundos, es "Runtime: *0 seconds*". Si es 1 segundo, es "Runtime: *1 second*". Si es 125 segundos, obtiene "Runtime: *2 minutes and 5 seconds*". Si es 3820 segundos (exactamente 1h, 3m, 40s), se redondea para caber en dos unidades expresadas: "Runtime: *1 hour and 4 minutes*". Usar duration_exact devolvería "Runtime: *1 hour, 3 minutes, and 40 seconds*". En el segundo ejemplo de la Synopsis, usando ago($interval_seconds): Si $age es 3 segundos, imprime "_file_ was modified *3 seconds ago*". Si es 0 segundos, es "_file_ was modified *just now*", como caso especial. Si es 1 segundo, es "from *1 second ago*". Si es 125 segundos, obtiene "_file_ was modified *2 minutes and 5 seconds ago*". Si es 3820 segundos (exactamente 1h, 3m, 40s), se redondea para caber en dos unidades expresadas: "_file_ was modified *1 hour and 4 minutes ago*". Usar ago_exact devolvería "_file_ was modified *1 hour, 3 minutes, and 40 seconds ago*". Y si la hora de modificación del archivo está, sorprendentemente, tres segundos en el futuro, $age es -3, y obtendrá el igualmente y apropiadamente sorprendente "_file_ was modified *3 seconds from now*".