View of /trunk/webwork2/bin/timing

    1 #!/usr/bin/env perl
    2 
    3 use strict;
    4 use warnings;
    5 
    6 use constant ID   => 0;
    7 use constant TIME => 1;
    8 use constant TASK => 2;
    9 use constant DATA => 3;
   10 
   11 my %processes;
   12 
   13 while (<>) {
   14 	my ($pid, $id, $time, $task, $data) =
   15 		m/^TIMING\s+(\d+)\s+(\d+)\s+([\d\.]+)\s+(.*)\s*:\s*(.*)$/;
   16 	next unless $pid;
   17 	push @{$processes{$pid}}, [$id, $time, $task, $data];
   18 }
   19 
   20 foreach my $pid (keys %processes) {
   21 	my $indent = -1;
   22 	print "Timing data for PID $pid\n\n";
   23 	my @events = sort { $a->[TIME] <=> $b->[TIME] } @{$processes{$pid}};
   24 	foreach my $event (@events) {
   25 		$indent++ if $event->[DATA] eq "START";
   26 		print " "x$indent, "@$event\n";
   27 		$indent-- if $event->[DATA] eq "END";
   28 	}
   29 	print "\n";
   30 	
   31 }