Displaying 1 result from an estimated 1 matches for "printrat".
Did you mean:
printmat
2004 Apr 06
0
cbqmon.pl
...hift @ARGV; }
>
> }
>
> use Term::Cap;
> use Time::HiRes qw(gettimeofday sleep);
>
> $clear = `clear`;
> $terminal = Tgetent Term::Cap;
> $origin = $terminal->Tgoto(''cm'',0,0);
> $origin2 = $terminal->Tgoto(''cm'',0,3);
>
> $printrates=0;
> $wait_time = 1/$persec - .1;
> $starttime = $oldtime = gettimeofday();
>
> $header = $origin . "$iface-$watchclass
> Class kbps pps backlog dropped borrowed overact. tokens
ctokens
> ------ ------- ------ -------- -------- -------- -------- -------- -------...