From a417d6d86568e94d5670d68221613b8e56efdf4d Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 7 Sep 2019 16:30:38 +0200
Subject: [PATCH 1/1] =?utf8?q?support=20values=20with=20float=20suffixes?=
 =?utf8?q?=20e=C2=B1N?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 barcat | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/barcat b/barcat
index e6b22b6..3e1980d 100755
--- a/barcat
+++ b/barcat
@@ -68,7 +68,7 @@ if (defined $opt{interval}) {
 $SIG{INT} = 'IGNORE';  # continue after assumed eof
 
 my (@lines, @values);
-my $valmatch = qr/$opt{anchor} ( \h* -? [0-9]* \.? [0-9]+ |)/x;
+my $valmatch = qr/$opt{anchor} ( \h* -? [0-9]* \.? [0-9]+ (?: e[+-]?[0-9]+ )? |)/x;
 while (readline) {
 	s/\r?\n\z//;
 	s/^\h*// unless $opt{unmodified};
@@ -196,6 +196,7 @@ for example I<-f'(\d+)'> for the first digits anywhere.
 
 Format values using SI unit prefixes,
 turning long numbers like I<12356789> into I<12.4M>.
+Also changes an exponent I<1.602176634e-19> to I<160.2z>.
 
 =item -t, --interval[=<seconds>]
 
-- 
2.30.0