Skip to content

Commit

Permalink
Add a simple tool to process the files produced from RAKUDO_SUBLOG.
Browse files Browse the repository at this point in the history
For the moment it simply returns a count of the number of times each
subroutine is entered.
  • Loading branch information
pmichaud committed May 14, 2011
1 parent e54eeca commit f81d740
Showing 1 changed file with 20 additions and 0 deletions.
20 changes: 20 additions & 0 deletions tools/sublog-report.pl
Original file line number Diff line number Diff line change
@@ -0,0 +1,20 @@
#! perl

use warnings;
use strict;


my %called;

while (<>) {
chomp;
my ($called, $caller) = split("\t", $_, 2);
$called{$called}++;
}


my @called_keys = sort { $called{$b} <=> $called{$a} } keys %called;

foreach my $key (@called_keys) {
printf "%9d %s\n", $called{$key}, $key;
}

0 comments on commit f81d740

Please sign in to comment.