45 |
} |
} |
46 |
|
|
47 |
if ( $v >= 1 ) { |
if ( $v >= 1 ) { |
48 |
return sprintf("%d%s/s", $v, $units[$o]); |
return sprintf("%d%s", $v, $units[$o]); |
49 |
} elsif ( $v == 0 ) { |
} elsif ( $v == 0 ) { |
50 |
return ''; |
return ''; |
51 |
} else { |
} else { |
52 |
return sprintf("%.1f%s/s", $v, $units[$o]); |
return sprintf("%.1f%s", $v, $units[$o]); |
53 |
} |
} |
54 |
} |
} |
55 |
|
|
118 |
my $t = ( $tx - $ltx ) / $dt; |
my $t = ( $tx - $ltx ) / $dt; |
119 |
( $lrx, $ltx ) = ( $rx, $tx ); |
( $lrx, $ltx ) = ( $rx, $tx ); |
120 |
|
|
121 |
printf "%s | %s |%6s >> %-6s| %s%s\n", $s, $load, unit( $r ), unit( $t ), $bat, $temp; |
printf "%s | %s |%5s > %-5s| %s%s\n", $s, $load, unit( $r ), unit( $t ), $bat, $temp; |
122 |
|
|
123 |
sleep $dt; |
sleep $dt; |
124 |
} |
} |