in reply to Re: file case change
in thread file case change
Okay:
change
GreetZ!,
print "profeth still\n" if /bird|devil/;
change
to:for (readdir DIR) { print "$_<br>"; rename("$path/$_", lc("$path/$_")) or print "Couldn't rename $file +: $!\n"; }
for (readdir DIR) { next if (/^\.{1,2}$/); print "$_<br>"; rename("$path/$_", lc("$path/$_")) or print "Couldn't rename $_: $ +!\n"; }
GreetZ!,
- ChOas
print "profeth still\n" if /bird|devil/;
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Re: Re: file case change
by tachyon (Chancellor) on Mar 15, 2002 at 20:34 UTC |
In Section
Seekers of Perl Wisdom