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" ; |
Hide Comments