utils/output_analysis/bad_ports.pl

   1 #!/usr/bin/perl -w
   2
   3 $#ARGV==0 or die "Finds all unique unhandled I/O ports in a palacios output file\nusage: bad_ports.pl serial.out\n";
   4
   5 open(K,shift);
   6
   7 while (<K>) {
   8   if (/: (\S+) operation on unhooked IO port 0x(\S+)/) {
   9     $dir=$1;
  10     $port=$2;
  11
  12     $p{$port} |= ($dir eq 'IN' ? 1 : 2);
  13     $n{$port}++;
  14   }
  15 }
  16
  17 close(K);
  18
  19 @list = sort keys %p;
  20
  21 foreach $port (@list) {
  22   print $port,"\t",$n{$port};
  23   if ($p{$port} & 1) {
  24     print "\tIN";
  25   }
  26   if ($p{$port} & 2) {
  27     print "\tOUT";
  28   }
  29   print "\n";
  30 }
  31