Admin/profiling_report
changeset 16693 75f39d66425d
parent 16671 ca316edcb031
child 16705 33f38450cab6
equal deleted inserted replaced
16692:d3416641926f 16693:75f39d66425d
     9 
     9 
    10 my %log = ();
    10 my %log = ();
    11 my @output = ();
    11 my @output = ();
    12 
    12 
    13 while (<ARGV>) {
    13 while (<ARGV>) {
    14     if (m,^( |\d){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 	if ($count =~ m,^\s*(\d)+$,) {
    17 	if ($count =~ m,^\s*(\d)+$,) {
    18 	    if (defined($log{$fun})) {
    18 	    if (defined($log{$fun})) {
    19 		$log{$fun} += $count;
    19 		$log{$fun} += $count;