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

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.
  • Comment on Re^5: Use Of Glob On File Extensions (find/rule)

Replies are listed 'Best First'.
Re^6: Use Of Glob On File Extensions (find/rule)
by NewToPerl777 (Novice) on Nov 19, 2014 at 02:49 UTC

    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]

      I copied the wrong thing. 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);
        }

}

      [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom