6 use POSIX
qw(strftime);
14 render_fraction_as_percentage
18 sub render_timestamp
{
21 # ISO 8601 date format
22 return strftime
("%F %H:%M:%S", localtime($epoch));
25 sub render_timestamp_gmt
{
28 # ISO 8601 date format, standard Greenwich time zone
29 return strftime
("%F %H:%M:%S", gmtime($epoch));
33 my ($duration_in_seconds) = @_;
36 my $rest = $duration_in_seconds;
39 my ($unit, $unitlength) = @_;
41 if ((my $v = int($rest/$unitlength)) > 0) {
42 $text .= " " if length($text);
43 $text .= "${v}${unit}";
44 $rest -= $v * $unitlength;
48 $step->('w', 7*24*3600);
49 $step->('d', 24*3600);
57 sub render_fraction_as_percentage
{
60 return sprintf("%.2f%%", $fraction*100);
64 my ($value, $precision) = @_;
66 my @units = qw(B KiB MiB GiB TiB PiB);
70 $max_unit = int(log($value)/log(1024));
71 $value /= 1024**($max_unit);
73 my $unit = $units[$max_unit];
74 return sprintf "%." . ($precision || 2) . "f $unit", $value;