tools/crashSummarizeLocations.pl

   1 # Call with the following args:
   2 #   [-s <groupSize>] filename1 [filename 2 [...]]
   3 # Where:
   4 #       <groupSize> defines the size of the square within which nearby entries will be considered to be at the same location.
   5
   6 use strict;
   7
   8 my $debug = 0;
   9 my $groupSize = 100.0;
  10 my %crashCountByLocation;
  11
  12 sub sign
  13 {
  14         my $value = shift;
  15         if ($value >= 0)
  16         {
  17                 return 1;
  18         }
  19         else
  20         {
  21                 return -1;
  22         }
  23 }
  24
  25 sub quantizeCoordinate
  26 {
  27         my $coordinate = shift;
  28         return int(abs($coordinate)/$groupSize) * $groupSize * sign($coordinate);
  29 }
  30
  31 sub addCrashLocation
  32 {
  33         my $terrainName = shift;
  34         my $x = quantizeCoordinate(shift);
  35         my $y = shift;
  36         my $z = quantizeCoordinate(shift);
  37
  38         my $key = $terrainName . ':' . $x . ':' . $z;
  39         ++$crashCountByLocation{$key};
  40 }
  41
  42 sub printCrashSummary
  43 {
  44         printf("count\t%25s: %6s %6s\n\n", 'terrain file', 'x', 'z');
  45
  46         # Sort entries by count, starting with highest.
  47         foreach my $key (sort { $crashCountByLocation{$b} <=> $crashCountByLocation{$a} } keys %crashCountByLocation)
  48         {
  49                 my $count = $crashCountByLocation{$key};
  50
  51                 my @keyData = split(/:/, $key);
  52                 my $terrain = $keyData[0];
  53                 my $x = $keyData[1];
  54                 my $z = $keyData[2];
  55
  56                 printf("%d\t%25s: %6d %6d\n", $count, $terrain, $x, $z);
  57         }
  58 }
  59
  60 # Handle options.
  61 if (defined($ARGV[0]) && ($ARGV[0] eq '-s'))
  62 {
  63         shift;
  64         $groupSize = shift;
  65 }
  66
  67 print "group size: $groupSize\n" if $debug;
  68
  69 # Process Files
  70 my $terrain;
  71 my $x;
  72 my $y;
  73 my $z;
  74
  75 while (<>)
  76 {
  77         chomp();
  78
  79         # Check for terrain
  80         if (s/^Terrain:\s*//)
  81         {
  82                 $terrain = $_;
  83         }
  84         elsif (m/^Player:\s*(\S+)\s+(\S+)\s+(\S+)/)
  85         {
  86                 $x = $1;
  87                 $y = $2;
  88                 $z = $3;
  89
  90                 # This line depends on the Player entry coming after the Terrain entry in a .txt file.
  91                 addCrashLocation($terrain, $x, $y, $z);
  92         }
  93 }
  94
  95 printCrashSummary;
  96