Convert duration values from previous examples; like ffprobe -sexagesimal.
} or die $@ =~ s/(?:\ at\ \N+)?\Z/ for option $_[0]/r;
},
'human-readable|H!',
} or die $@ =~ s/(?:\ at\ \N+)?\Z/ for option $_[0]/r;
},
'human-readable|H!',
'interval|t:i',
'trim|length|l=s' => sub {
my ($optname, $optval) = @_;
'interval|t:i',
'trim|length|l=s' => sub {
my ($optname, $optval) = @_;
$opt{'sum-format'} = sub { sprintf '%.8g', $_[0] };
$opt{'calc-format'} = sub { sprintf '%*.*f', 0, 2, $_[0] };
$opt{'sum-format'} = sub { sprintf '%.8g', $_[0] };
$opt{'calc-format'} = sub { sprintf '%*.*f', 0, 2, $_[0] };
-$opt{'value-format'} = $opt{units} && sub {
+$opt{'value-format'} = $opt{sexagesimal} ? sub {
+ my $s = $_[0] + .5;
+ sprintf('%d:%02d:%02d', $s/3600, $s/60%60, $s%60);
+} : $opt{units} && sub {
my $unit = (
log(abs $_[0] || 1) / log(10)
- 3 * (abs($_[0]) < .9995) # shift to smaller unit if below 1
my $unit = (
log(abs $_[0] || 1) / log(10)
- 3 * (abs($_[0]) < .9995) # shift to smaller unit if below 1
--header Prepend a chart axis with minimum and maximum
values labeled
-H, --human-readable Format values using SI unit prefixes
--header Prepend a chart axis with minimum and maximum
values labeled
-H, --human-readable Format values using SI unit prefixes
+ --sexagesimal Convert seconds to HH:MM:SS time format
-t, --interval[=(N|-LINES)]
Output partial progress every given number of
seconds or input lines
-t, --interval[=(N|-LINES)]
Output partial progress every given number of
seconds or input lines
Also changes an exponent I<1.602176634e-19> to I<160.2z>.
Short integers are aligned but kept without decimal point.
Also changes an exponent I<1.602176634e-19> to I<160.2z>.
Short integers are aligned but kept without decimal point.
+=item --sexagesimal
+
+Convert seconds to HH:MM:SS time format.
+
=item -t, --interval[=(<seconds> | -<lines>)]
Output partial progress every given number of seconds or input lines.
=item -t, --interval[=(<seconds> | -<lines>)]
Output partial progress every given number of seconds or input lines.
exiftool -T -p '$megapixels ($imagesize) $filename' * | barcat
exiftool -T -p '$megapixels ($imagesize) $filename' * | barcat
- exiftool -T -p '$duration# $avgbitrate# $filename' * | barcat -H
+ exiftool -T -p '$duration# $avgbitrate# $filename' * | barcat --sexagesimal
find -type f -print0 | xargs -0 -L1 \
ffprobe -show_format -of json -v error |
find -type f -print0 | xargs -0 -L1 \
ffprobe -show_format -of json -v error |
- jq -r '[.format|.duration,.bit_rate,.filename]|join(" ")' | barcat -H
+ jq -r '.format|.duration+" "+.bit_rate+" "+.filename' | barcat --sex
Memory usage of user processes with long names truncated:
Memory usage of user processes with long names truncated:
--- /dev/null
+0
+.5
+1.49
+60
+59.5
+3600
+3661
+35999.49
+35999.5
+40271.1
+86400
+
--- /dev/null
+0:00:00
+0:00:01
+0:00:01
+0:01:00
+0:01:00
+1:00:00 +
+1:01:01 +
+9:59:59 +----=----->-
+10:00:00 +----=----->-
+11:11:11 +----=----->--
+24:00:00 +----=----->-------------------
+