http://qs321.pair.com?node_id=151966


in reply to Re: file case change
in thread file case change

Okay:
change 

for (readdir DIR) {
print "$_<br>";
    rename("$path/$_", lc("$path/$_")) or print "Couldn't rename $file
+: $!\n";
}

[download]
to: 

for (readdir DIR) {
next if (/^\.{1,2}$/);
print "$_<br>";
    rename("$path/$_", lc("$path/$_")) or print "Couldn't rename $_: $
+!\n";
}

[download]

GreetZ!,

print "profeth still\n" if /bird|devil/;

In Section Seekers of Perl Wisdom