16 |
my $disk_blk_size = 512; |
my $disk_blk_size = 512; |
17 |
|
|
18 |
my $debug = shift @ARGV; |
my $debug = shift @ARGV; |
19 |
my $awesome = 3; |
my $awesome = 0; |
20 |
|
|
21 |
$|=1; |
$|=1; |
22 |
|
|
187 |
my $d_write = ( $d_w - $ld_w ) / $dt; |
my $d_write = ( $d_w - $ld_w ) / $dt; |
188 |
( $ld_r, $ld_w ) = ( $d_r, $d_w ); |
( $ld_r, $ld_w ) = ( $d_r, $d_w ); |
189 |
|
|
190 |
my $out = sprintf("%s | %s |%5s D %-5s|%5s > %-5s| %s%s", |
my $out = sprintf("%s |%5s D %-5s|%5s > %-5s| %s%s | %s", |
|
$s, |
|
191 |
$load, |
$load, |
192 |
unit( $d_read ), unit( $d_write ), |
unit( $d_read ), unit( $d_write ), |
193 |
unit( $net_rx ), unit( $net_tx ), |
unit( $net_rx ), unit( $net_tx ), |
194 |
$bat, $temp, |
$bat, $temp, |
195 |
|
$s, |
196 |
); |
); |
197 |
|
|
198 |
print "$out\n"; |
print "$out\n"; |