tests/oomtrace.pl

   1 #!/usr/bin/env perl
   2
   3 use strict;
   4 use warnings;
   5
   6 (my $ME = $0) =~ s|.*/||;
   7 # use File::Coda; # http://meyering.net/code/Coda/
   8 END {
   9   defined fileno STDOUT or return;
  10   close STDOUT and return;
  11   warn "$ME: failed to close standard output: $!\n";
  12   $? ||= 1;
  13 }
  14
  15
  16 my @data = <>;
  17
  18
  19 my %trace;
  20 my %lines;
  21
  22 foreach (@data) {
  23     if (/^\s*TRACE:\s+(\S+?)(?:\(.*\))?\s+\[0x(.*)\]\s*$/ ) {
  24         $trace{$2} = $1;
  25     }
  26 }
  27
  28 foreach my $key (keys %trace) {
  29     my $val = $trace{$key};
  30     my $info = $val =~ /\?\?/ ? $val : `addr2line -e $val $key`;
  31     $lines{$key} = $info;
  32 }
  33
  34
  35 foreach (@data) {
  36     if (/^\s*TRACE:\s+(\S+?)(?:\(.*\))?\s+\[0x(.*)\]\s*$/ ) {
  37         print $lines{$2};
  38     } else {
  39         print;
  40     }
  41 }