X-Git-Url: https://git.lttng.org/?a=blobdiff_plain;f=tests%2Futils%2Fbabelstats.pl;h=53c85d4d0fd6974202adf6a8b0a8db4fafaf51fc;hb=bf239d4cf83c083459c7672ac8a1965108bacca6;hp=d8d4dd08e04cafb92276549b9b279713858b61f9;hpb=9d806fbf7a6806b79cfddba58ced01441c1bf188;p=lttng-tools.git

diff --git a/tests/utils/babelstats.pl b/tests/utils/babelstats.pl
index d8d4dd08e..53c85d4d0 100755
--- a/tests/utils/babelstats.pl
+++ b/tests/utils/babelstats.pl
@@ -118,7 +118,7 @@ sub print_fields_stats
 
 	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
@@ -146,6 +146,7 @@ while (<>)
 	my $elapsed     = '\((.*)\)';
 	my $hostname    = '.*';
 	my $pname       = '.*';
+	my $pinfo       = '.*';
 	my $pid         = '\d+';
 	my $tp_provider = '.*';
 	my $tp_name     = '.*';
@@ -153,18 +154,21 @@ while (<>)
 	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($pinfo)\s($tp_provider):($tp_name):\s$cpu_info,\s$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{'pinfo'}       = $3;
+
+#		my @split_pinfo = split(':', $3);
+#		$event_hash{'hostname'}    = $split_pinfo[0];
+#		$event_hash{'pname'}       = defined($split_pinfo[1]) ? $split_pinfo[1] : undef;
+#		$event_hash{'pid'}         = defined($split_pinfo[2]) ? $split_pinfo[2] : undef;
+
+		$event_hash{'tp_provider'} = $4;
+		$event_hash{'tp_name'}     = $5;
+		$event_hash{'cpu_id'}      = $6;
+		$event_hash{'fields'}      = parse_fields($7);
 
 		push @events, \%event_hash;
 	}