Line # Revision Author
1 52 dpavlin #!/usr/bin/perl -w
2
3 use strict;
4 use Term::ReadKey qw(GetTerminalSize);
5 179 dpavlin use Getopt::Long;
6 52 dpavlin
7 179 dpavlin my $human = 0;
8 GetOptions(
9 'human!' => \$human,
10 );
11
12 52 dpavlin my @lines;
13
14 my $max_size = 0;
15 my $max_sum = 0;
16 my $rest_len = 0;
17 my $sum = 0;
18
19 179 dpavlin my @units = qw/b k M G/;
20 sub unit {
21 my $v = shift;
22
23 return $v unless $human;
24
25 my $o = 0;
26
27 while ( ( $v / 10000 ) >= 1 ) {
28 $o++;
29 $v /= 1024;
30 }
31
32 if ( $v >= 1 ) {
33 return sprintf("%d%s", $v, $units[$o]);
34 } elsif ( $v == 0 ) {
35 return 0;
36 } else {
37 return sprintf("%.1f%s", $v, $units[$o]);
38 }
39 }
40
41 52 dpavlin while(<>) {
42 chomp;
43 if (/\s*([\d\.]+)\s+(.+)/) {
44 my ($size,$rest) = ($1,$2);
45 $sum += $size;
46 $max_size = $size if ($size > $max_size);
47 $max_sum = $sum if ($sum > $max_sum);
48 my $rl = length($rest);
49 $rest_len = $rl if ($rl > $rest_len);
50 push @lines, [ $size, $rest, $sum ];
51 } else {
52 print STDERR "# $_\n";
53 }
54 }
55
56 55 dpavlin my $cols = eval { (Term::ReadKey::GetTerminalSize)[0] } || $ENV{COLS} || $ENV{COLUMNS} || 80;
57 52 dpavlin
58 # convert to chars
59 my $size_len = length($max_size);
60 my $sum_len = length($max_sum);
61
62 my $bar_size = $cols - $rest_len - $sum_len - $size_len - 4;
63
64 sub bar_size {
65 my ($v,$m) = @_;
66 return int($v * $bar_size / $m)
67 }
68
69 sub bar {
70
71 my ($v1,$m1,$v2,$m2) = @_;
72 my $b1 = bar_size($v1, $m1);
73 my $b2 = bar_size($v2, $m2);
74
75 my $bar = '';
76
77 if ($b1 < $b2) {
78 $bar .= "O" x $b1;
79 $bar .= "-" x ($b2 - $b1);
80 } elsif ($b1 > $b2) {
81 $bar .= "*" x $b2;
82 $bar .= "-" x ($b1 - $b2);
83 } else {
84 $bar .= "O" x $b1;
85 }
86 }
87
88 foreach my $l (@lines) {
89 my ($size,$r,$tmpsum) = @{$l};
90 # printf "%-50s\t[ + %-8d= %-8d ]\n",$r,$size,$tmpsum;
91 179 dpavlin printf "%-${rest_len}s %${size_len}s %-${bar_size}s %${sum_len}s\n",
92 $r, unit($size), bar($size, $sum, $tmpsum, $sum), unit($tmpsum);
93 52 dpavlin }