equal
deleted
inserted
replaced
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; |