Counter for loops or looping through files

[bashologist]

Looks like this.

for ((i = 0; i < 101; i++)); do echo 100 $i; sleep 0.05; done | counter.pl
18% [========= ] 18/100
41% [====================== ] 41/100
69% [===================================== ] 69/100
100% [================================================== ====] 100/100

Very simple to use just send the program standard output that looks like this.

100 0
100 10
100 20
100 100

Example 1.

for ((i = 0; i < 101; i++)); do echo 100 $i; sleep 0.05; done | perl counter.pl

Example 2.

counter=1
files=(*)
for file in "${files[@]}"; do
echo ${#files[@]} $((counter++))
# replace sleep command with something that uses $file
sleep 0.25
done | perl counter.pl

Script.

#!/usr/bin/env perl

$|++;

while (readline) {
next unless /(\d+)\s+(\d+)/;
exit if $1 eq 0;

my $cols = qx/tput cols/;
chomp $cols;

my $s3s = 1 + (length $1) * 2;
my $s2s = $cols - $s3s - 10;

my $s1 = ($2 != 0 ? int 100 / ($1 / $2) : 0);
my $s2 = ($2 != 0 ? $s2s / ($1 / $2) : 0);

printf "\r % 3s%% [%-${s2s}s] % ${s3s}s ", $s1, "=" x ($s2 > $s2s ? $s2s : $s2), "$2/$1";
}

print "\n";