1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
#!/usr/bin/perl
use strict;
use warnings;
use Time::HiRes;
use Benchmark::Forking qw( :all );
use lib './lib';
use lib '../lib';
use File::Util;
use File::Find::Rule;
my $f = File::Util->new();
# some dir with several subdirs (and .pod files preferably)
my $dir = shift @ARGV || '.';
print "\nNON-RECURSIVE\n";
cmpthese
10_000,
{
'File::Util' => sub { $f->list_dir( $dir => { files_only => 1 } ) },
'File::Find::Rule' => sub { File::Find::Rule->maxdepth(1)->file->in( $dir ) },
};
print "\nNON-RECURSIVE WITH REGEXES\n";
cmpthese
10_000,
{
'File::Util' => sub { $f->list_dir( $dir => { files_only => 1, files_match => qr/\.pod$/ } ) },
'File::Find::Rule' => sub { File::Find::Rule->maxdepth(1)->file->name( qr/\.pod$/ )->in( $dir ) },
};
print "\nRECURSIVE\n";
cmpthese
400,
{
'File::Util' => sub { $f->list_dir( $dir => { recurse => 1, files_only => 1 } ) },
'File::Find::Rule' => sub { File::Find::Rule->file->in( $dir ) },
};
print "\nRECURSIVE WITH REGEXES\n";
cmpthese
400,
{
'File::Util' => sub { $f->list_dir( $dir => { recurse => 1, files_only => 1, files_match => qr/\.pod$/ } ) },
'File::Find::Rule' => sub { File::Find::Rule->file->name( qr/\.pod$/ )->in( $dir ) },
};
__END__
----------------------------------------------------------------------
Mon Feb 25 12:30:03 CST 2013
----------------------------------------------------------------------
TEST - 1045 files, 32 directories varying from one to 4 levels deep
----------------------------------------------------------------------
NON-RECURSIVE
Rate File::Find::Rule File::Util
File::Find::Rule 2128/s -- -80%
File::Util 10753/s 405% --
NON-RECURSIVE WITH REGEXES
Rate File::Find::Rule File::Util
File::Find::Rule 2375/s -- -70%
File::Util 7937/s 234% --
RECURSIVE
Rate File::Find::Rule File::Util
File::Find::Rule 72.2/s -- -55%
File::Util 160/s 122% --
RECURSIVE WITH REGEXES
Rate File::Find::Rule File::Util
File::Find::Rule 87.9/s -- -42%
File::Util 153/s 74% --
|
