**Note Does not work with spaces

| lowerit

#!/bin/sh
# lowerit
# convert all file names in the current directory to lower case
# only operates on plain files--does not change the name of directories
# will ask for verification before overwriting an existing file
for x in `ls`
do
if [ ! -f $x ]; then
continue
fi
lc=`echo $x  | tr '[A-Z]' '[a-z]'`
if [ $lc != $x ]; then
mv -i $x $lc
fi
done

| rename.pl

#!/usr/bin/perl -s
 
if(@ARGV == 0) {
	opendir PWD, ".";
	@ARGV = readdir PWD;
	closedir PWD;
}
 
foreach (@ARGV) {
	# skip if no upper case!
	next unless /[[:upper:]]/;
	warn "# starting \"$_\"\n" if $v; # verbose mode
	next if $_ eq ".";
	next if $_ eq "..";
	next if m#.*/\.\.?$#;
	$pathname = $_;
	warn "# Doing \"$pathname\"\n" if $v; # verbose mode
	if($r && -d $_ && /^[^\/]+$/) {
		print "# visiting directory $_\n";
		opendir DIR, $_;
		my @dir = readdir DIR;
		closedir DIR;
		foreach my $entry (@dir) {
			next if $entry eq "..";
			next if $entry eq ".";
			warn "# Adding $_/$entry\n" if $v; # verbose mode
			unshift @ARGV, "$_/$entry";
		}
		warn "# Redo-ing\n" if $v; # verbose mode
		redo;
	}
	if(($dir, $filename) = m!(.*/)(.*)!) {
		$_ = $filename;
	} else {
		$dir ="";
	}
	# unicode-friendly way to do equivalent of English [A-Z] -> [a-z]
	s/[([:upper:])]/\L$1\E/g;
	print "mv $pathname $dir$_\n";
	$xx="xx01";
	unless($n) {
		if(-e "${dir}${xx}.$$") {
			# leave it there, increment xx
			$xx++;
			if(-e "${dir}${xx}.$$") {
				die "\"${dir}${xx}.$$\" no longer safe. Quitting.\n";
			}
		}
		print "# moving \"$pathname\" to \"${dir}${xx}.$$\"\n" if $v; # verbose mode
		# rename twice in case of case-insensitive file systems
		rename($pathname, "${dir}${xx}.$$")
		|| print "# couldn't rename \"$pathname\" to \"${dir}${xx}.$$\": $!\n";
		print "# moving \"${dir}${xx}.$$\" to \"$dir$_\"\n" if $v; # verbose mode
		rename("${dir}${xx}.$$", "$dir$_")
		|| print "# couldn't rename \"${dir}${xx}.$$\" to \"$dir$_\": $!\n";
	}
}
 
exit(0);