in reply to Using a progress bar... having issues
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); }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: Using a progress bar... having issues
by james28909 (Deacon) on Aug 09, 2015 at 03:21 UTC | |
by GrandFather (Saint) on Aug 09, 2015 at 04:53 UTC | |
by james28909 (Deacon) on Aug 09, 2015 at 05:09 UTC |