in reply to Re^2: Use Of Glob On File Extensions (find/rule)
in thread Use Of Glob On File Extensions

Is it possible to recursively go through directories with something like this?
You want glob to return files with extension .pl. So you can't recursively go through directories if glob doesn't return directories. Actually, it will return them, if they also end with .pl. But really, use opendir, readdir, closedir.
  • Comment on Re^3: Use Of Glob On File Extensions (find/rule)

Replies are listed 'Best First'.
Re^4: Use Of Glob On File Extensions (find/rule)
by Anonymous Monk on Nov 19, 2014 at 01:14 UTC

    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]
[reply]
[d/l]
      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]

        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]
Re^4: Use Of Glob On File Extensions (find/rule)
by NewToPerl777 (Novice) on Nov 19, 2014 at 01:24 UTC

    Hmmm, thank you for your help Anonymous Monk. I think I might have bit off a bit more than I can chew right now with my level of Perl.

    I know this isn't right, but am I heading in the right direction?

    
#!/usr/local/bin/perl

use strict;
use warnings;
use File::Find;

my @argv;
my $dir = $ARGV[0];

find(\&recursiveDir, $dir);

sub recursiveDir{
        my @directories = glob "*";
        if (-d)
        {
                opendir(DIR, $dir);
                while(readdir DIR)
                {
                        my @files = glob "${dir}/*pl";
                        foreach (@files) {
                        next if -d;
                        (my $txt = $_) =~ s/pl$/txt/;
                        rename($_, $txt);
                        closedir (DIR);
                        }
                }
        }
}

    [download]

    I am trying to grab all files and directories and store them into an array, then traverse through it like that.

[reply]
[d/l]
      I'm not sure why you're so determined to use glob. No, you're not heading in the right direction, File::Find doesn't work like that at all.
[reply]

        I figured it out! I was just being stubborn with glob. I had to read up on the tutorial involving the File::Find for a while until I understood what was going on. This is what I came up with. 

        
#!/usr/local/bin/perl

use strict;
use warnings;
use File::Find;


my @argv;
my $dir = $ARGV[0];

find(\&dirRecurs, $dir);

sub dirRecurs{


        if (-f)
        {
                (my $txt = $_) =~ s/pl$/txt/;
                rename($_, $txt);
        }
        if (-d)
        {
                 (my $txt = $_) =~ s/pl$/txt/;
                rename($_, $txt);
        }
}

        [download]

        Thank you for helping me out Anonymous Monk, it is greatly appreciated!

[reply]
[d/l]

In Section Seekers of Perl Wisdom