perl-Time-Duration

Ce module fournit des fonctions pour exprimer des durées en termes arrondis ou exacts. Dans le premier exemple du Synopsis, en utilisant duration($interval_seconds) : Si 'time() - $start_time' vaut 3 secondes, cela affiche "Runtime: *3 seconds*". S'il vaut 0 seconde, c'est "Runtime: *0 seconds*". S'il vaut 1 seconde, c'est "Runtime: *1 second*". S'il vaut 125 secondes, vous obtenez "Runtime: *2 minutes and 5 seconds*". S'il vaut 3820 secondes (exactement 1h, 3m, 40s), cela est arrondi pour tenir en deux unités exprimées : "Runtime: *1 hour and 4 minutes*". Utiliser duration_exact renverrait "Runtime: *1 hour, 3 minutes, and 40 seconds*". Dans le second exemple du Synopsis, en utilisant ago($interval_seconds) : Si $age vaut 3 secondes, cela affiche "_file_ was modified *3 seconds ago*". S'il vaut 0 seconde, c'est "_file_ was modified *just now*", en cas particulier. S'il vaut 1 seconde, c'est "from *1 second ago*". S'il vaut 125 secondes, vous obtenez "_file_ was modified *2 minutes and 5 seconds ago*". S'il vaut 3820 secondes (exactement 1h, 3m, 40s), cela est arrondi pour tenir en deux unités exprimées : "_file_ was modified *1 hour and 4 minutes ago*". Utiliser ago_exact renverrait "_file_ was modified *1 hour, 3 minutes, and 40 seconds ago*". Et si l'heure de modification du fichier est, étonnamment, trois secondes dans le futur, $age vaut -3, et vous obtiendrez le tout aussi et appropriément surprenant "_file_ was modified *3 seconds from now*".