Comments on: [Perl] Finding Files, The Fun And Elegant Way http://beerpla.net/2009/04/08/perl-finding-files-the-fun-and-elegant-way/ where things have nothing to do with beer - tutorials, tips, how-tos, thoughts, hacks, and other techy nonsense Sat, 31 Jul 2010 04:32:52 +0000 hourly 1 http://wordpress.org/?v=3.0 By: Shlomi Fish http://beerpla.net/2009/04/08/perl-finding-files-the-fun-and-elegant-way/#comment-20301 Shlomi Fish Sat, 04 Jul 2009 13:59:12 +0000 http://beerpla.net/2009/04/08/perl-finding-files-the-fun-and-elegant-way/#comment-20301 I should note that I recently began work on <a href="http://www.shlomifish.org/open-source/projects/File-Find-Object/" rel="nofollow">File-Find-Object-Rule</a>, which is a port of File-Find-Rule to File-Find-Object. This would eventually allow F-F-O-R to overcome some of File::Find::Rule inherent limitations, which are caused due to its reliance on File::Find. The interface of F-F-Object-Rule still remains pretty much backwards compatible to that of F-F-Rule, but some stuff (like "->start()" and "->match()") have become much saner. I should note that I recently began work on File-Find-Object-Rule, which is a port of File-Find-Rule to File-Find-Object. This would eventually allow F-F-O-R to overcome some of File::Find::Rule inherent limitations, which are caused due to its reliance on File::Find.

The interface of F-F-Object-Rule still remains pretty much backwards compatible to that of F-F-Rule, but some stuff (like "->start()" and "->match()") have become much saner.

]]> By: Andy Lester http://beerpla.net/2009/04/08/perl-finding-files-the-fun-and-elegant-way/#comment-15398 Andy Lester Wed, 08 Apr 2009 15:17:02 +0000 http://beerpla.net/2009/04/08/perl-finding-files-the-fun-and-elegant-way/#comment-15398 Glad you dig the File::Find::Rule, but I've always found it to be a pain to use. Rather than having to use plugin filters, I'd rather just write my own if necessary. So I wrote File::Next. use File::Next; my $iter = File::Next::files( { file_filter => sub { /\.pl$/ }, descend_filter => sub { $_ ne '.svn' }, }, '.', '../SomeDir' ); while ( my $file = $iter->() ) { print "$file\n"; } Like your previous example, that finds all .pl files under . and ../SomeDir, without looking into the .svn directories. Glad you dig the File::Find::Rule, but I've always found it to be a pain to use. Rather than having to use plugin filters, I'd rather just write my own if necessary. So I wrote File::Next.

use File::Next;

my $iter =
File::Next::files( {
file_filter => sub { /\.pl$/ },
descend_filter => sub { $_ ne '.svn' },
}, '.', '../SomeDir' );

while ( my $file = $iter->() ) {
print "$file\n";
}

Like your previous example, that finds all .pl files under . and ../SomeDir, without looking into the .svn directories.

]]>