checkforholes.pl

来自「实现在电脑平台上控制短信modem或手机进行通讯的jar包和相关实例」· PL 代码 · 共 54 行

# This script checks for holes while rolling a log file.

$input=$ARGV[0];
$MAX_COUNT=$ARGV[1];
$LAST_EXPECTED=$ARGV[2];

$counter = 0;
$expected = 0;	

for($i = $MAX_COUNT; $i >= 1; $i--) {
  checkOrder("$input.$i");
}

checkOrder("$input");

if($expected == $LAST_EXPECTED) {
  print "All files as expected.\n";
}
else {
  print "Missing output or unexpected output in $input$i.\n";
  exit 1;
}


sub checkOrder {
  $file = $_[0];
  if(-e "$file") {
    $firstLine = `head -1 $file`;
    chomp $first;
    $lastLine = `tail -1 $file`;

    if($firstLine =~ /MSG $expected/) {
      print "First line of $file in expected order.\n";
    }
    else {
      print "First line of $file not as expected.\n";
      exit 1;
    }

    if($lastLine =~ /MSG (\d*)/) {
      $expected = $1 + 1;
    }
    else {
      print "last line of $file in unexpected format.\n";
      exit 1;
    }    
  } 
  else {
    print "Skipping inexistent file [$file].\n";
  }
}