Help for this page

Select Code to Download


  1. or download this
    ...
printf "%8s:\t%s %2d\n", $bit, "-" x $data{$bit}, $data{$bit};
...
  2. or download this
    ...
my $marks = "-" x int( (  $data{ $bit } / MAXDATA ) * 50.0 ); 
my $blanks = " " x ( 50 - $data );
printf "%8s:\t%s%s %2d\n", $bit, $marks, $blanks, $data{ $bit };