Progress Bar

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/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";
Homepage
Comments

Hide Comments