tools/crashCompare.pl

   1 #!/usr/bin/perl -w
   2 use strict;
   3
   4 my (%keys, %rows);
   5 my (@files, $file);
   6 my $row = 0;
   7 my $spaced = 0;
   8
   9 die "$0: Usage: $0 <directory>\n" unless(@ARGV);
  10
  11 if($ARGV[0] eq "-s")
  12 {
  13         $spaced=1;
  14         shift;
  15 }
  16
  17 opendir(DIR, "$ARGV[0]") || die "$0: Can't open directory $ARGV[0]\n";
  18 while($_ = readdir(DIR))
  19 {
  20         next unless($_ =~ m%\.txt$% && $_ !~ m%^_%);
  21         push(@files, $_);
  22 }
  23 closedir(DIR);
  24
  25 exit if($#files == -1);
  26
  27 foreach $file(@files)
  28 {
  29         open(INPUT, "<$ARGV[0]/$file") || die "$0: Can't open $_: $!\n";
  30         $keys{"z-filename"}=1;
  31         while(<INPUT>)
  32         {
  33                 $/="\n\n";
  34                 my $trash = <INPUT>;
  35                 $trash = <INPUT>;
  36                 $/="\n";
  37                 while($_ = <INPUT>)
  38                 {
  39                         chomp;
  40                         if(/:/)
  41                         {
  42                                 my($key, $value) = split(/:/, $_, 2);
  43                                 $value =~ s%\s+% %g;
  44                                 $value =~ s%^\s+%%;
  45                                 $value =~ s%\s+$%%;
  46                                 my @elements = split(/\s/, $value);
  47                                 if($spaced && $#elements > 0)
  48                                 {
  49                                         my $origkey = $key;
  50                                         for(0 .. $#elements)
  51                                         {
  52                                                 $key = $origkey . ($_+1);
  53                                                 $rows{$row}{$key} = $elements[$_];
  54                                                 $keys{$key} = 1;
  55                                         }
  56                                 }
  57                                 else
  58                                 {
  59                                         $rows{$row}{$key} = $value;
  60                                         $keys{$key} = 1;
  61                                 }
  62                         }
  63                         $rows{$row}{"z-filename"} = $file;
  64                 }
  65         }
  66         close(INPUT);
  67         $row++;
  68 }
  69
  70 print join("\t", sort(keys(%keys)));
  71 print "\n";
  72
  73 $row--;
  74
  75 my $colcount;
  76 for(0..$row)
  77 {
  78         $colcount = 1;
  79         if (defined $rows{$_})
  80         {
  81                 my %current = %{$rows{$_}};
  82                 foreach my $column (sort(keys(%keys)))
  83                 {
  84                         if(defined($current{$column}))
  85                         {
  86                                 print $current{$column};
  87                         }
  88                         else
  89                         {
  90                                 print "-";
  91                         }
  92                         print "\t" unless(scalar(keys(%keys)) == $colcount);
  93                         $colcount++;
  94                 }
  95                 print "\n";
  96         }
  97 }