You don't say what you are going to use it for. You didn't show any of your code where you attempted to create one. However, I'm in a good mood this afternoon so I'll give you a push in the right direction.
It's not very pretty but it creates a horizontal progress bar.
#/usr/bin/perl use strict; use warnings; my $value = 0.86; # 86% done my $progress = int(80 * $value); # 80 characters wide my $progbar = ""; for my $i (0 .. 79) { if ($i <= $progress) { $progbar .= "="; } else { $progbar .= "+"; } } print "$progbar\n";
In reply to Re: Perl Console VU Meter
by Mr. Muskrat
in thread Perl Console VU Meter
by fantom
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |