Admin/profiling_report
changeset 16705 33f38450cab6
parent 16693 75f39d66425d
child 16858 fade1d3a2995
equal deleted inserted replaced
16704:89cc9172f0be 16705:33f38450cab6
    12 
    12 
    13 while (<ARGV>) {
    13 while (<ARGV>) {
    14     if (m,^([ 0-9]{10}) (\S+$|GARBAGE COLLECTION.*$),) {
    14     if (m,^([ 0-9]{10}) (\S+$|GARBAGE COLLECTION.*$),) {
    15 	my $count = $1;
    15 	my $count = $1;
    16 	my $fun = $2;
    16 	my $fun = $2;
       
    17 	$fun =~ s,-?\(\d+\).*$,,g;
       
    18 	$fun =~ s,/\d+$,,g;
    17 	if ($count =~ m,^\s*(\d)+$,) {
    19 	if ($count =~ m,^\s*(\d)+$,) {
    18 	    if (defined($log{$fun})) {
    20 	    if (defined($log{$fun})) {
    19 		$log{$fun} += $count;
    21 		$log{$fun} += $count;
    20 	    } else {
    22 	    } else {
    21 		$log{$fun} = $count;
    23 		$log{$fun} = $count;