case.pl

				
=**************************************
= Name: case.pl
= Description:I ran into a problem moving a company from NT servers to linux running samba. All of the files and users home directories where in varied case. While case had never been an issue before the administrators decided that they wanted it as easy as possible for their employees to remember usernames and to create the logon scripts, so i search for a while but could not find anything that would change all of the directory names at once. I am sure there is an easier way, but i grabbed a LLama book and wrote this in aboout an hour. The only thing it does is change the case of all files in a directory (including directory names) to either UPPERCASE or lowercase.
= By: James Shepherd
=
= Inputs:The only way i could quickly figure this out is to have all filenames i wanted changed into a file, I used this.It will output all directories and filenames in the current directory ( along with their case ).Then read each line of that file and pass it through the case program.
ls > new
for i in new; do ./case.pl $i; done
=
= Returns:None
=
= Side Effects:It will change *all* files to whichever case you desire. If there are files or directories that you do not want changed, edit the "new" file before running the command.
=
=This code is copyrighted and has= limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=318&lngWId=6=for details.=**************************************

#!/usr/bin/perl
#version 1.0
#case.pl - change all files and folders in a directory to lowercase 
#	or UPPERCASE. In your directory type 
#
#USAGE: ls > new; for i in new;do ./case.pl $i;done
# for upper case move # up one line:
# by James Shepherd - james@netjames.com - www.netjames.com
while (<>) {
chomp;
$n = $_;
s/$_/\L$_/gi;# Lowercase line
#s/$_/\U$_/gi;#UPPERCASE LINE
rename $n, $_;
print "Success renaming $n to $_ !\n";
}