Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

I think *maybe*?

by Anonymous Monk
on Dec 24, 1999 at 00:52 UTC ( #1353=note: print w/ replies, xml ) Need Help??


in reply to How do I recursively process files through directories

Wouldn't this work? I haven't even run this to check for syntax, so DON'T EVEN trust me! I'm just as clueless as you are even more so probably, but I would like to know if this is generaly possible && if there are any downs of using this kind of approach.

print &FilesExt('/tmp','csv','txt')." files renamed\n";

sub FilesExt {

    my ($startpath,$orgext,$newext) = @_;
    my ($count);

    foreach $leaf (glob("$startpath/*")) {
        if (-d $leaf) { 
            $count += FilesExt($leaf,$orgext,$newext);
        } elsif ($leaf =~ m/$orgext\z/i) { #case insensitive maybe?
            my $oldleaf = $leaf;
            $leaf =~ s/$1/$newext/;
            rename($oldleaf,$leaf) or warn();
            ++$count;
        }
    }
    return($count);
}
Comments, monks?


Comment on I think *maybe*?
RE: I think *maybe*?
by Anonymous Monk on Dec 24, 1999 at 00:57 UTC
    YAY! I just ran it... it does work, but I'd still like to know if this is potentially a bad way of doing things... Cheers.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1353]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (6)
As of 2014-10-24 07:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (130 votes), past polls