optional decimal point for human-readable integers

[barcat.git] / barcat

diff --git a/barcat b/barcat
index 9c4741a383efaafac4dc11423aaf0e885fde22a1..a664d0ddec200f0762e5a3a6ea1d269c5baf571b 100755 (executable)
--- a/barcat
+++ b/barcat
@@ -143,10 +143,11 @@ if ($opt{markers} // 1 and $size > 0) {
 @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;
+       my $unit = int(log($_[0]) / log(1000) - ($_[0] < 1) + 1e-15);
+       my $float = sprintf '%e', $_[0] / 1000 ** $unit;  #TODO: or $_[0] =~ /\./
+       $float -= int($float);
        sprintf('%*.*f%*s',
-               $float ? 5 : 3, $float,  # length and tenths
+               $float ? (5,1) : (3,0),  # length and tenths
                $_[0] / 1000 ** $unit,   # number
                $float ? 0 : 3,          # unit size
                $#{$opt{units}} >> 1 < abs $unit ? "e$unit" : $opt{units}->[$unit]
@@ -192,6 +193,7 @@ if ($opt{stat}) {
 }
 
 __END__
+=encoding utf8
 
 =head1 NAME
 
@@ -315,15 +317,15 @@ Draw a sine wave:
 
     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
 
@@ -334,14 +336,14 @@ Commonly used after counting, for example users on the current server:
 Letter frequencies in text files:
 
     cat /usr/share/games/fortunes/*.u8 |
-    perl -CO -nE 'say for grep length, split /\PL*/, uc' |
+    perl -CS -nE 'say for grep length, split /\PL*/, uc' |
     sort | uniq -c | barcat
 
 Number of HTTP requests per day:
 
     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
@@ -349,7 +351,10 @@ Any kind of database query with leading counts:
 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: