ClickHouse/utils/postprocess-traces/postprocess-traces.pl

50 lines
1008 B
Perl
Raw Normal View History

2016-11-24 20:15:37 +00:00
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
my @current_stack = ();
my $grouped_stacks = {};
while (my $line = <>)
{
chomp $line;
if ($line =~ '^#')
{
$line =~ s/^#\d+\s+//;
$line =~ s/ \([^\)]+=[^\)]+\) / /g;
push @current_stack, $line;
}
if ($line eq '')
{
my $group = \$grouped_stacks;
for my $frame (reverse @current_stack)
{
$$group->{count} ||= 0;
++$$group->{count};
$group = \$$group->{children}{$frame};
}
@current_stack = ();
}
}
sub print_group
{
my $group = shift;
my $level = shift || 0;
for my $key (sort { $group->{children}{$b}{count} <=> $group->{children}{$a}{count} } keys %{$group->{children}})
{
my $count = $group->{count};
print(('| ' x $level) . $count . (' ' x (5 - (length $count))) . $key . "\n");
print_group($group->{children}{$key}, $level + 1);
}
}
print_group($grouped_stacks);