Using Benchmark to Profile Performance

Performance profiling: measuring execution time

Several methods are exported when you use Benchmark.

Use Benchmark; $count = 500; timethese($count, { 'a' => sub{suba(20)}, 'b' => \&subb, 'c' => {print "sub c was called at time: ", localtime(time), "\n";}, });

Keys are evaluated in string comparison order
Values can be strings to eval or a code reference
The code runs in caller's package

Results are sent to STDOUT in the form:

Benchmark: timing 500 iterations of a, b, c a: 6 secs ( 6.15 usr 0.00 sys = 6.15 cpu) b: 7 secs ( 6.67 usr 0.00 sys = 6.67 cpu) c: 7 secs ( 6.65 usr 0.00 sys = 6.65 cpu)

Other methods, output options, and styles are specified in the manpage

Using Benchmark to Profile Performance

http://www.keller.com/perladv/6/bench.html Updated Wednesday, 31-Oct-2001 14:22:39 CST Copyright © 1999

http://www.keller.com/perladv/6/bench.html
Updated Wednesday, 31-Oct-2001 14:22:39 CST

Copyright © 1999