PDF (PDF) - SIOS Technology Corp. Documentation

収 集 した 詳 細 変 化 率 データの 解 析my $lasttime;# datestamp divides outputmy %days = ( 'Sun' => 1, 'Mon' => 1, 'Tue' => 1, 'Wed' => 1,'Thu' => 1, 'Fri' => 1, 'Sat' => 1);my %fields = ( 'major' => 0,'minor' => 1,'dev' => 2,'reads' => 3,'reads_merged' => 4,'sectors_read' => 5,'ms_time_reading' => 6,'writes' => 7,'writes_merged' => 8,'sectors_written' => 9,'ms_time_writing' => 10,'ios_pending' => 11,'ms_time_total' => 12,'weighted_ms_time_total' => 13 );my $devfield = $fields{'dev'};my $calcfield = $ENV{'ROC_CALC_FIELD'} || $fields{'sectors_written'};dbg "using field $calcfield\n";open(FD, "$file") or die "Cannot open $file:$!\n";foreach () {chomp;@_ = split;if (exists($days{$_[0]})) { # skip datestamp dividerif ($firsttime eq '') {$firsttime = join ' ', @_[0..5];}$lasttime = join ' ', @_[0..5];next;}next if ($_[0] !~ /[0-9]/); # ignoreif (!%devs || exists $devs{$_[$devfield]}) {push @{$stat{$_[$devfield]}}, $_[$calcfield];}}@{$stat{'total'}} = totals(\%stat);SteelEye Protection Suite for Linux Technical DocumentationPage 268