Re^4: Use Of Glob On File Extensions (find/rule)

File::Find::Rule uses opendir/readdir/closedir so that you don't have do -- work is for suckers

This program tested

#!/usr/bin/perl --
use strict;
use warnings;
use Path::Tiny qw/ cwd path /;
use File::Find::Rule qw/ find rule /;

path( "firstgonertoday/a.pl" )->touchpath;
path( "firstgonertoday/me/too/b.pl" )->touchpath;
rule(
    file => name => qr/\.pl$/i,
    exec => sub {
        print "@_\n";
        return !!0; ## discard
    },
)->in( "firstgonertoday" );

path( "firstgonertoday" )->remove_tree;

__END__
$ perl pathclassfilefindrulefirstgonertoday.pl
a.pl firstgonertoday firstgonertoday/a.pl
b.pl firstgonertoday/me/too firstgonertoday/me/too/b.pl
[download]

Comment on Re^4: Use Of Glob On File Extensions (find/rule) Download Code

Replies are listed 'Best First'.
Re^5: Use Of Glob On File Extensions (find/rule) by Anonymous Monk on Nov 19, 2014 at 01:59 UTC
File::Find::Rule uses opendir/readdir/closedir so that you don't have do -- work is for suckers I believe there is some value in learning how to write a recursive tree traversal function.	[reply]
Re^6: Use Of Glob On File Extensions (find/rule) by Anonymous Monk on Nov 19, 2014 at 02:26 UTC
I believe there is some value in learning how to write a recursive tree traversal function. Sure, if you're trying to learn about recursion, if all you want to do is rename some files, its just work ... I see readdir suggested every time a glob/File::Find type question comes up, the OP is never looking to learn about recursion, they just want a list of paths, so `just use readdir` is always off the mark	[reply] [d/l]