#!/usr/bin/perl -w
use strict;
my ($readline,$found);
my @aok=("Loading Vxd =",             # A list of all the different va
+lues
      "LoadSuccess =",                # that should be ignored. Others
+ are
      "Loading Device =",             # left in for debugging purposes
+.
      "LoadSuccess    =",
      "SYSCRITINIT  =",
      "SYSCRITINITSUCCESS  =",
      "DEVICEINIT   =",
      "DEVICEINITSUCCESS   =",
      "Dynamic init device ",
      "Dynamic init success",
      "Dynamic load device ",
      "Dynamic load success",
      "Initing",
      "Init Success",
      "INITCOMPLETE =",
      "INITCOMPLETESUCCESS =",
      "LoadStart =",
      "Init =",
      "InitDone =",
      "Status =");
open BOOTLOG, "<C:\\bootlog.txt" or die ("Error: could not open c:\\bo
+otlog.txt\n$!\n"); # Open up the file
while (not eof(BOOTLOG)) {
  $readline=<BOOTLOG>;
  $found=0;
  foreach (@aok) {if ($readline =~ m/.*$_.*/) {$found=1}}; # Check aga
+inst each @aok to see if it's valid: if it is, $found.
  chomp($readline);                                        # If not, t
+hen print it out if it's not just a newline.
  unless ($found) {if ($readline) {print "$readline\n";}};
}
[download]