On Mon, 2009-05-18 at 17:36 -0700, r...@i.frys.com wrote:
<snip>
> #!/usr/bin/perl
>
> use strict;
> use warnings;
> use File::Find;
> use Benchmark qw/cmpthese/;
>
> cmpthese( 10, {
> 'dir' => sub {my @files = `dir /b /a-d /s c:\test` },
>
> 'filefind' => sub {my @files;
> find sub {push @files, $File::Find::name if -f },
> "c:/test"}},
> );
>
> ---
>
> C:\test>test.pl
> s/iter filefind dir
> filefind 1.67 -- -93%
> dir 0.119 1304% --
<snip>What Benchmark .pm are you using ? CPAN i/benchmark/ => lists 66 entries, but none of which are simply Benchmark Thanks in advance. Greg.
signature.asc
Description: This is a digitally signed message part
