Parent Directory | Revision Log
test range of hdparm setting on drive
1 | dpavlin | 92 | #!/usr/bin/perl |
2 | |||
3 | use warnings; | ||
4 | use strict; | ||
5 | |||
6 | my $drive = shift @ARGV || '/dev/sdb'; | ||
7 | |||
8 | my $mult = 0; | ||
9 | |||
10 | my $size = -1; | ||
11 | my $new_size = 0; | ||
12 | |||
13 | while ( $new_size > $size ) { | ||
14 | $size = $new_size; | ||
15 | |||
16 | print "# $drive $mult ", $size ? "last: $size Mb" : "", "\n"; | ||
17 | system "hdparm -a $mult $drive"; | ||
18 | my $hdparm = `hdparm -tT $drive`; | ||
19 | print $hdparm; | ||
20 | if ( $hdparm =~ m/buffered disk reads:\s+(\d+)\s+MB in\s+(\d+\.\d+)\s+seconds/s ) { | ||
21 | $new_size = $1 / $2; | ||
22 | } else { | ||
23 | warn "can't find buffered disk reads:"; | ||
24 | } | ||
25 | |||
26 | $mult += 16; | ||
27 | } | ||
28 | |||
29 |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |