76 lines
1.9 KiB
Perl
76 lines
1.9 KiB
Perl
#!/usr/bin/perl
|
|
#
|
|
# Scrub the variable fields from the perf trace2 output to
|
|
# make testing easier.
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
my $qpath = '\'[^\']*\'|[^ ]*';
|
|
|
|
my $col_depth=0;
|
|
my $col_thread=1;
|
|
my $col_event=2;
|
|
my $col_repo=3;
|
|
my $col_t_abs=4;
|
|
my $col_t_rel=5;
|
|
my $col_category=6;
|
|
my $col_rest=7;
|
|
|
|
# This code assumes that the trace2 data was written with bare
|
|
# turned on (which omits the "<clock> <file>:<line> | <parents>"
|
|
# prefix.
|
|
|
|
while (<>) {
|
|
my @tokens = split /\|/;
|
|
|
|
foreach my $col (@tokens) { $col =~ s/^\s+|\s+$//g; }
|
|
|
|
if ($tokens[$col_event] =~ m/^start/) {
|
|
# The 'start' message lists the contents of argv in $col_rest.
|
|
# On some platforms (Windows), argv[0] is *sometimes* a canonical
|
|
# absolute path to the EXE rather than the value passed in the
|
|
# shell script. Replace it with a placeholder to simplify our
|
|
# HEREDOC in the test script.
|
|
my $argv0;
|
|
my $argvRest;
|
|
$tokens[$col_rest] =~ s/^($qpath)\W*(.*)/_EXE_ $2/;
|
|
}
|
|
elsif ($tokens[$col_event] =~ m/cmd_path/) {
|
|
# Likewise, the 'cmd_path' message breaks out argv[0].
|
|
#
|
|
# This line is only emitted when RUNTIME_PREFIX is defined,
|
|
# so just omit it for testing purposes.
|
|
# $tokens[$col_rest] = "_EXE_";
|
|
goto SKIP_LINE;
|
|
}
|
|
elsif ($tokens[$col_event] =~ m/child_exit/) {
|
|
$tokens[$col_rest] =~ s/ pid:\d* / pid:_PID_ /;
|
|
}
|
|
elsif ($tokens[$col_event] =~ m/data/) {
|
|
if ($tokens[$col_category] =~ m/process/) {
|
|
# 'data' and 'data_json' events containing 'process'
|
|
# category data are assumed to be platform-specific
|
|
# and highly variable. Just omit them.
|
|
goto SKIP_LINE;
|
|
}
|
|
}
|
|
|
|
# t_abs and t_rel are either blank or a float. Replace the float
|
|
# with a constant for matching the HEREDOC in the test script.
|
|
if ($tokens[$col_t_abs] =~ m/\d/) {
|
|
$tokens[$col_t_abs] = "_T_ABS_";
|
|
}
|
|
if ($tokens[$col_t_rel] =~ m/\d/) {
|
|
$tokens[$col_t_rel] = "_T_REL_";
|
|
}
|
|
|
|
my $out;
|
|
|
|
$out = join('|', @tokens);
|
|
print "$out\n";
|
|
|
|
SKIP_LINE:
|
|
}
|
|
|
|
|