Next Trivial Utilities 35

ticker

            if ($b) {
              $fl1 = $fl unless defined $fl1;
              $ns = "$fn: $fl ";
              print $ns;
              printf "%.2f", $fl/66 if $opt_p && $opt_l;
              printf "%s/s", rate(($fl-$fl1)/($time -$^T)) 
                if $time > $^T && $opt_r;
              $change = 1;
              @{$item}[2,3,4] = ($fl, $ns, $fl1);
            } else {
              print $fs;
            }
          }
          sleep 5 unless $change;
          print "\r";
        }


Next Menu Copyright © 2012 M. J. Dominus