Take a look at this node Term::ProgressBar or try this
poj#! /usr/bin/perl use strict; use Term::ProgressBar; my $low = 1; my $high = 20; my $status = Term::ProgressBar->new( { name => 'Progress', count => $high - $low + 1, term_width => 80, }); my $count = 0; for my $no ( $low .. $high ){ # # calc prime # sleep 1; $status->update(++$count); }
In reply to Re: Using a progress bar... having issues
by poj
in thread Using a progress bar... having issues
by TitoLasVegas
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |