| Subject: | No progress bar when "sleep 1" is inside the cycle |
| MIME-Version: | 1.0 |
| X-Mailer: | MIME-tools 5.418 (Entity 5.418) |
| Content-Type: | text/plain; charset="utf8" |
| Content-Disposition: | inline |
| Content-Transfer-Encoding: | binary |
| X-RT-Original-Encoding: | utf-8 |
| Content-Length: | 677 |
No progress bar output:
#!/usr/bin/perl
use Term::Activity;
$|=1;
my $ta = new Term::Activity ({ debug => 1 });
$c = 0;
while (1) {
$ta->tick;
sleep 1;
$c++;
last if $c > 100000;
Term-Activity-1.06]$ perl ex1
DEBUG: Intializing skin: wave (_ants_wave)
DEBUG: Starting count : 0
DEBUG: Starting size : 80
DEBUG: Starting interval : 100
DEBUG: Starting time : 1142627168
DEBUG: Starting last time : 1142627168
DEBUG: tick() count: 1 interval: 100
DEBUG: tick() count: 2 interval: 100
DEBUG: tick() count: 3 interval: 100
DEBUG: tick() count: 4 interval: 100
DEBUG: tick() count: 5 interval: 100
DEBUG: tick() count: 6 interval: 100