Re: chargen program is too slow / IO::Select socket handle outputting timing issue


Do you know where your variables are?
	PerlMonks

Re: chargen program is too slow / IO::Select socket handle outputting timing issue

by Jeppe (Monk)

on Jul 11, 2006 at 12:23 UTC ( [id://560425]=note: print w/replies, xml )

Need Help??

in reply to chargen program is too slow / IO::Select socket handle outputting timing issue

When I run into performance trouble, I do like this:


use Time::HiRes;
my $ENABLE_PROFILING = 1;
my $exit_genchars_time = 0;

...

sub exit_genchars {

 my $temp_time = Time::HiRes::time() 
   if $ENABLE_PROFILING;
 log_event("Exit called\n");
 $exit_genchars_time += 
   Time::HiRes::time() - $temp_time if $ENABLE_PROFILING;
 exit(0);
}

...

sub END {
  if ($ENABLE_PROFILING) {
    print "Spent " . sprintf("%.2f") . 
     " seconds inside exit_genchars\n";
    ...
    ...
  }   
}
[download]

etc. It ain't very pretty. It's low-tech, not very expensive, fairly easy to remove afterwards, and most of all in my domain: Thread-safe.