git.shiar.nl
/
barcat.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
unmodified should avoid value alignment
[barcat.git]
/
barcat
diff --git
a/barcat
b/barcat
index 82cf7d6e42d7a24702dbec28be3688d8535ca0cc..a4ed12faa8b248923be9990d22b8962d67764a66 100755
(executable)
--- a/
barcat
+++ b/
barcat
@@
-1,4
+1,4
@@
-#!/usr/bin/
env perl
+#!/usr/bin/
perl -CA
use 5.018;
use warnings;
use utf8;
use 5.018;
use warnings;
use utf8;
@@
-47,8
+47,8
@@
GetOptions(\%opt,
);
},
'markers|m=s',
);
},
'markers|m=s',
- 'spark
!
' => sub {
- $opt{spark} = [split //, '⎽▁▂▃▄▅▆▇█'];
+ 'spark
:s
' => sub {
+ $opt{spark} = [split //,
$_[1] ||
'⎽▁▂▃▄▅▆▇█'];
},
'stat|s!',
'unmodified|u!',
},
'stat|s!',
'unmodified|u!',
@@
-63,6
+63,7
@@
$opt{trim} *= $opt{width} / 100 if $opt{trimpct};
$opt{units} = [split //, ' kMGTPEZYyzafpnμm'] if $opt{'human-readable'};
$opt{anchor} //= qr/\A/;
$opt{'value-length'} = 6 if $opt{units};
$opt{units} = [split //, ' kMGTPEZYyzafpnμm'] if $opt{'human-readable'};
$opt{anchor} //= qr/\A/;
$opt{'value-length'} = 6 if $opt{units};
+$opt{'value-length'} = 1 if $opt{unmodified};
my (@lines, @values, @order);
my (@lines, @values, @order);
@@
-93,6
+94,7
@@
while (readline) {
push @order, $1 if length $1;
if (defined $opt{trim} and defined $1) {
my $trimpos = abs $opt{trim};
push @order, $1 if length $1;
if (defined $opt{trim} and defined $1) {
my $trimpos = abs $opt{trim};
+ $trimpos -= length $1 if $opt{unmodified};
if ($trimpos <= 1) {
$_ = substr $_, 0, 1;
}
if ($trimpos <= 1) {
$_ = substr $_, 0, 1;
}
@@
-315,7
+317,7
@@
Total statistics after all data.
=item -u, --unmodified
=item -u, --unmodified
-Do not
strip
leading whitespace.
+Do not
reformat values, keeping
leading whitespace.
Keep original value alignment, which may be significant in some programs.
=item --value-length=<size>
Keep original value alignment, which may be significant in some programs.
=item --value-length=<size>