Progress Bar

From Augix' Wiki

#!/bin/perl
@animation = qw( \ | / - );
 
$arrow="";
for ($i=1;$i<100;$i++) {
 
$percent= "    "."$i%"." [";
$arrow.="=";
 
	foreach $a(@animation) {
		print STDERR $percent;
		print STDERR $arrow.'>';
		print STDERR $a."\n";
		print STDERR "\e[A";
		sleep 1;
 
	}
 
}
 
print STDERR "\n";