mirror of
https://github.com/ClickHouse/ClickHouse.git
synced 2024-12-16 11:22:12 +00:00
57 lines
1.0 KiB
Perl
Executable File
57 lines
1.0 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Data::Dumper;
|
|
|
|
my @current_stack = ();
|
|
my $grouped_stacks = {};
|
|
|
|
sub process_stacktrace
|
|
{
|
|
my $group = \$grouped_stacks;
|
|
for my $frame (reverse @current_stack)
|
|
{
|
|
$group = \$$group->{children}{$frame};
|
|
$$group->{count} ||= 0;
|
|
++$$group->{count};
|
|
}
|
|
|
|
@current_stack = ();
|
|
}
|
|
|
|
while (my $line = <>)
|
|
{
|
|
chomp $line;
|
|
|
|
if ($line =~ '^#')
|
|
{
|
|
$line =~ s/^#\d+\s+//;
|
|
$line =~ s/ \([^\)]+=.+\) at / at /g;
|
|
push @current_stack, $line;
|
|
}
|
|
|
|
if ($line eq '')
|
|
{
|
|
process_stacktrace();
|
|
}
|
|
}
|
|
|
|
process_stacktrace();
|
|
|
|
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->{children}{$key}{count};
|
|
print(('| ' x $level) . $count . (' ' x (5 - (length $count))) . $key . "\n");
|
|
print_group($group->{children}{$key}, $level + 1);
|
|
}
|
|
}
|
|
|
|
print_group($grouped_stacks);
|