topic Script to find any capital letter and change it to lower case? in Operating System - Linux

Script to find any capital letter and change it to lower case?

Coolmar — Wed, 06 Jun 2007 06:46:26 GMT

Is there a way to find all files with a capital letter...any capital letter...in the filename and change it to lowercase? It would have to be with the find command as the subdirectories are VERY deep in some cases.

Thanks!

Re: Script to find any capital letter and change it to lower case?

Aussan — Wed, 06 Jun 2007 07:50:04 GMT

i created a test directory and touched a few files that had upper case letters in the name

this worked for that directory

for file in `ls`
do
mv $file `echo $file | tr '[:upper:]' '[:lower:]'`

done

i would add * after ls if you want it to do subdirectories also

Re: Script to find any capital letter and change it to lower case?

Bernd Reize — Wed, 06 Jun 2007 07:52:30 GMT

find | while read fname; do
lname=$(echo $fname | tr "[:upper:]" "[:lower:]")
[ $lname != $fname ] && mv $fname $lname
done

Beware that this script may run a very long time (depending on amount of directories) since it finds every file and tests for capital letters.

Re: Script to find any capital letter and change it to lower case?

Coolmar — Wed, 06 Jun 2007 07:53:33 GMT

Thanks Aussan, but I would need to do a "find" of all files with a capital letter and change it to a lower case. An "ls" will not work as the subdirectories go very very deep in some cases.

Re: Script to find any capital letter and change it to lower case?

spex — Wed, 06 Jun 2007 07:56:39 GMT

Hi Coolmar,

#!/usr/bin/sh
FPATH=/foo/bar
find ${FPATH} -type f -print > /tmp/flist.${$}.out
while read L
do
{
DIR=${L%/*}
F1=${L##*/}
F2=$(echo ${F1} | tr '[:upper:]' '[:lower:]')
if [ ${F1} != ${F2} ]
then
mv ${DIR}/${F1} ${DIR}/${F2}
fi
} done < /tmp/flist.${$}.out
rm -f /tmp/flist.${$}.out
exit 0

PCS

Re: Script to find any capital letter and change it to lower case?

James R. Ferguson — Wed, 06 Jun 2007 08:00:12 GMT

Hi:

Perl makes this easy. This will lowercase the names of all files with any uppercase letters. This will be done recursively in the directory (or directories) that you pass as an argument. Only files (not directory names) will be changed.

The _current_working_ directory will be used if you run the script without any argument!

# cat /.rename
#!/usr/bin/perl
#@(#)rename $ Find files with uppercase letters and lowercase - JRF $
use strict;
use warnings;
use File::Find;

my @path = @ARGV ? @ARGV : getcwd() =~ m{^/$} ? ('/') : ('.');
my @files = ();
my ( $oldname, $newname );

find( sub { push( @files, $File::Find::name ) if m/[A-Z]+/ && -f $_ }, @path );

for $oldname (@files) {
($newname = $oldname) =~ tr [A-Z] [a-z];
rename( $oldname, $newname );
}
1;

...run as:

# ./rename /path

Regards!

...JRF...

Re: Script to find any capital letter and change it to lower case?

Sandman! — Wed, 06 Jun 2007 10:47:21 GMT

The command pipeline below will do what you're looking for so give it a try:

# find . -type f | awk '{f=tolower($0);system("mv "$0" "f)}'

~hope it helps

Re: Script to find any capital letter and change it to lower case?

A. Clay Stephenson — Wed, 06 Jun 2007 10:54:03 GMT

One danger in these scripts is not testing for the existence of a file before moving. For example,
suppose that you have files "myfile" (the good) and "MyfilE" (the bad). Unless a test is done first the "mv MyfilE myfile" will overwrite the existing file.

Re: Script to find any capital letter and change it to lower case?

spex — Wed, 06 Jun 2007 10:55:52 GMT

@Sandman!,

Passing the entire $0 to tolower() causes directory names containing uppercase characters to also be converted to lowercase, resulting in "mv: ... No such file or directory".

PCS

Re: Script to find any capital letter and change it to lower case?

Coolmar — Wed, 06 Jun 2007 11:50:22 GMT

Thanks folks.

Re: Script to find any capital letter and change it to lower case?

James R. Ferguson — Wed, 06 Jun 2007 12:00:12 GMT

Hi (again):

Clay makes an excellent point! We can easily handle this and cleanup the problem PCS noted:

# cat ./rename
#!/usr/bin/perl
#@(#)rename $ Find files with uppercase letters and lowercase - JRF $
use strict;
use warnings;
use Cwd;
use File::Basename;
use File::Find;

my @path = @ARGV ? @ARGV : getcwd() =~ m{^/$} ? ('/') : ('.');
my @files = ();
my ( $dirname, $basename, $oldname, $newname );

find( sub { push( @files, $File::Find::name ) if -f $_ && m/[A-Z]+/ },
@path );

for $oldname (@files) {
$dirname = dirname($oldname);
$basename = basename($oldname);
( $newname = $basename ) =~ tr [A-Z] [a-z];
$newname = $dirname . '/' . $newname;
if ( -f $newname ) {
print STDERR "'$oldname' not renamed; '$newname' exists!\n";
}
else {
rename( $oldname, $newname )
or print STDERR "'$oldname' not changed\n";
}
}
1;

Regards!

...JRF...

Re: Script to find any capital letter and change it to lower case?

Hunki — Wed, 06 Jun 2007 14:24:17 GMT

Slightly modifying Aussan's script :

#!/bin/ksh
for file in `ls`
do
mv $file `echo $file |tr "[:lower:]" "[:upper:]"`
done