Help for this page

Select Code to Download

Select or download this

$ perl chdir_benchmar
Benchmark: timing 1000 iterations of with_chdir, without_chdir...
...
  @ 60.35/s (n=1000)
without_chdir: 31 wallclock secs (10.98 usr + 19.15 sys = 30.13 CPU)
  @ 33.19/s (n=1000)

Select or download this

#!/usr/bin/perl

...
                 without_chdir => sub { without_chdir(TESTDIR); },
                });