my %merged;
foreach my $event (@{$events_ref}) {
- my $tp_provider = $event->{'tp_provider'};
- my $tp_name = $event->{'tp_name'};
- my $tracepoint = "$tp_provider:$tp_name";
+ my $tp_event = $event->{'tp_event'};
+ my $tracepoint = "${tp_event}";
foreach my $key (keys %{$event->{'fields'}}) {
my $val = $event->{'fields'}->{$key};
foreach my $field (keys %{$merged_ref->{$tracepoint}}) {
my @sorted;
- my @val = keys ($merged_ref->{$tracepoint}->{$field});
+ my @val = keys %{$merged_ref->{$tracepoint}->{$field}};
if ($val[0] =~ /^\d+$/) {
# Sort numerically
while (<>)
{
- my $timestamp = '\[(.*)\]';
- my $elapsed = '\((.*)\)';
- my $hostname = '.*';
- my $pname = '.*';
- my $pid = '\d+';
- my $tp_provider = '.*';
- my $tp_name = '.*';
- my $cpu_info = '{\scpu_id\s=\s(\d+)\s\}';
- my $fields = '{(.*)}';
+ my $timestamp = '\[(?:.*)\]';
+ my $elapsed = '\((?:.*)\)';
+ my $hostname = '(?:.*)';
+ my $tp_event = '(.*)';
+ my $pkt_context = '(?:\{[^}]*\},\s)*';
+ my $fields = '\{(.*)\}$';
# Parse babeltrace text output format
- if (/$timestamp\s$elapsed\s($hostname):($pname):($pid)\s($tp_provider):($tp_name):\s$cpu_info,\s$fields/) {
+ if (/$timestamp\s$elapsed\s$hostname\s$tp_event:\s$pkt_context$fields/) {
my %event_hash;
-
- $event_hash{'timestamp'} = $1;
- $event_hash{'elapsed'} = $2;
- $event_hash{'hostname'} = $3;
- $event_hash{'pname'} = $4;
- $event_hash{'pid'} = $5;
- $event_hash{'tp_provider'} = $6;
- $event_hash{'tp_name'} = $7;
- $event_hash{'cpu_id'} = $8;
- $event_hash{'fields'} = parse_fields($9);
+ $event_hash{'tp_event'} = $1;
+ $event_hash{'fields'} = parse_fields($2);
push @events, \%event_hash;
}