progress bar

[Anonymous Monk]

Oh wise ones,
I have a text file processing program, and would like to diplay the progress as "=" signs (eg: up to 10, then erase line). So basically it almost looks like a progress bar for RPM installations.
I've hit a blank and could use your help. Any help would be greatly appreciated.

[McDarren]

This is almost a FAQ.

Using a Super Search will give you plenty of ideas.

Here a just a few:

• Term::ProgressBar
• Twirling baton progress indicator in Perl
• Progress Bar
• A whirleygig for a progress indicator for scripts
• Term::Twiddle

I'm sure that you can find plenty more.

Cheers,
Darren

[HuckinFappy]

The Damian suggests in Perl Best Practices using Smart::Comments

Having followed that advice, I'd have to agree

[Faile]

if you know in advance how many lines/files you're processing you can do this, otherwise you can only display a bar that lenghtens by a unit each time you start processing another file. you basically have to insert a printing statement without a \n in the loop of the file/line processing statements. i've done this a few times, let me know if that didnt help :)

[holli]

if you know in advance how many lines/files you're processing you can do this, otherwise you can only display a bar that lenghtens by a unit each time you start processing another file.

Not (completely) true. You will always know the size of the file you are processing, well at least if it is a regular file, not a socket or something similar. If you know the size, count the bytes you have already processed and your progress bar will always be accurate.

[liverpole]

An almost identical question was asked here, and I suggested this code, as an example of a subroutine which creates a "closure" to manage the desired progress meter.

Please try it out; I think it will do what you need.