@lines > $nr or return if $opt{hidemin};
sub sival {
- my $unit = int(log($_[0]) / log(1000) - ($_[0] < 1));
- my $float = $_[0] !~ /^ (?: 0*\.)? [0-9]{1,3} $/x;
- sprintf('%*.*f%*s',
- $float ? 5 : 3, $float, # length and tenths
- $_[0] / 1000 ** $unit, # number
- $float ? 0 : 3, # unit size
- $#{$opt{units}} >> 1 < abs $unit ? "e$unit" : $opt{units}->[$unit]
+ my $unit = int(log(abs $_[0] || 1) / log(10) - 3*($_[0] < 1) + 1e-15);
+ my $float = $_[0] !~ /^0*[-0-9]{1,3}$/;
+ sprintf('%3.*f%1s',
+ $float && ($unit % 3) == ($unit < 0), # tenths
+ $_[0] / 1000 ** int($unit/3), # number
+ $#{$opt{units}} * 1.5 < abs $unit ? "e$unit" : $opt{units}->[$unit/3]
);
}
}
__END__
+=encoding utf8
=head1 NAME
seq 30 | awk '{print sin($1/10)}' | barcat
-Compare file sizes:
+Compare file sizes (with human-readable numbers):
- du -d0 -m * | barcat
+ du -d0 -b * | barcat -H
-Memory usage of user processes:
+Memory usage of user processes with long names truncated:
ps xo %mem,pid,cmd | barcat -l40
-Monitor network latency:
+Monitor network latency from prefixed results:
ping google.com | barcat -f'time=\K' -t
cat log/access.log | cut -d\ -f4 | cut -d: -f1 | uniq -c | barcat
-Any kind of database query with leading counts:
+Any kind of database query with counts, preserving returned alignment:
echo 'SELECT count(*),schemaname FROM pg_tables GROUP BY 2' |
psql -t | barcat -u
External datasets, like movies per year:
curl https://github.com/prust/wikipedia-movie-data/raw/master/movies.json |
- jq '.[].year' | uniq -c | barcat
+ perl -054 -nlE 'say if s/^"year"://' | uniq -c | barcat
+
+But please get I<jq> to process JSON
+and replace the manual selection by C<< jq '.[].year' >>.
Pokémon height comparison: