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

[Anonymous Monk]

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.

[NewToPerl777]

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);
        }
}

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

[NewToPerl777]

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);
        }

}