Go4Expert - View Single Post - Free utility to rename all files in a folder.

oogabooga

It is interesting to compare the C++ version with a Perl version!

Code:

while (<*>) {
   $old = $_;
   $_ = lc;
   s/[^a-z0-9.]/_/g;
   rename $old, $_;
}

oogabooga Ambitious contributor
29Aug2008,01:14
	It is interesting to compare the C++ version with a Perl version! Code: while (<*>) { $old = $_; $_ = lc; s/[^a-z0-9.]/_/g; rename $old, $_; }