author | wenzelm |
Tue, 05 Jul 2005 16:49:15 +0200 | |
changeset 16693 | 75f39d66425d |
parent 16671 | ca316edcb031 |
child 16705 | 33f38450cab6 |
permissions | -rwxr-xr-x |
#!/usr/bin/env perl # # $Id$ # Author: Makarius # # DESCRIPTION: Simple report generator for Poly/ML profiling output. use strict; my %log = (); my @output = (); while (<ARGV>) { if (m,^([ 0-9]{10}) (\S+$|GARBAGE COLLECTION.*$),) { my $count = $1; my $fun = $2; if ($count =~ m,^\s*(\d)+$,) { if (defined($log{$fun})) { $log{$fun} += $count; } else { $log{$fun} = $count; } } } } foreach my $fun (keys %log) { push @output, (sprintf "%8d %s\n", $log{$fun}, $fun); } print (sort @output);