T L Andrews wrote:

If you're in bash, the following would do what you want

for i in *; do mv $i `perl -e "print lc \$i"`; done

Hello -tara, I tried your script ,but it gives the following messages after each file. bash: perl-e print lc <filename> :command not found mv: missing file argument As i don`t know annything about perl could you help me out please. Thanks a lot Cat -- To unsubscribe send e-mail to suse-linux-e-unsubscribe@suse.com For additional commands send e-mail to suse-linux-e-help@suse.com Also check the FAQ at http://www.suse.com/Support/Doku/FAQ/

...

If you're in bash, the following would do what you want

for i in *; do mv $i `perl -e "print lc \$i"`; done

Hello -tara, I tried your script ,but it gives the following messages after each file.

bash: perl-e print lc <filename> :command not found mv: missing file argument

There should be a space between the 'perl' and the '-e'. -- To unsubscribe send e-mail to suse-linux-e-unsubscribe@suse.com For additional commands send e-mail to suse-linux-e-help@suse.com Also check the FAQ at http://www.suse.com/Support/Doku/FAQ/

Thanks everyone for yer help. The space between perl and -e did some of it however mv is still missing a file argument. I copied all files to my hard disk and did a chmod755 to all of them in order to have the propper permissions. happy greets Cat -- To unsubscribe send e-mail to suse-linux-e-unsubscribe@suse.com For additional commands send e-mail to suse-linux-e-help@suse.com Also check the FAQ at http://www.suse.com/Support/Doku/FAQ/

catsquotl wrote:

. The space between perl and -e did some of it however mv is still missing a file argument.

OK then. I've put a short script at the bottom of this message that will do what you want - it's not as short and sweet as other solutions, but it does the job. Just save it and make it executable, then call it with the directory which contains the files you want to rename as an arguement, for example: lowerren /home/chris/test to rename the files in /home/chris/test after saving the script as lowerren. Note that this will rename *all* files to *completely* lowercase, not just ones beginning with 'F'.

I copied all files to my hard disk and did a chmod755 to all of them in order to have the propper permissions.

Hope this is useful, Chris --- script starts here --- #!/usr/bin/perl if ($ARGV[0] ne "") { # If a directory is specified, use that $rendir = $ARGV[0]; if ($rendir !~ /\/$/) { # If there's no trailing slash $rendir = $rendir . "/"; # put one in } } opendir (RENDIR, "$rendir") || die ("Cannot open directory $rendir\n"); print "Renaming files in $rendir to their lowercase equivalents.\n"; until (($file = readdir(RENDIR)) eq "") { $lfile = lc($file); if ($file ne $lfile) { print "Moving ", $file, " to ", $lfile, ".\n"; `mv $file $lfile`; } } closedir (RENDIR); --- script stops here --- -- __ _ -o)/ / (_)__ __ ____ __ Chris Reeves /\\ /__/ / _ \/ // /\ \/ / ICQ# 22219005 _\_v __/_/_//_/\_,_/ /_/\_\ -- To unsubscribe send e-mail to suse-linux-e-unsubscribe@suse.com For additional commands send e-mail to suse-linux-e-help@suse.com Also check the FAQ at http://www.suse.com/Support/Doku/FAQ/

catsquotl wrote:

Thanks everyone for your input. It finaly worked with the mmv command Stefan suggested.

Chris thanks for the script. There seem to be a few syntax errors. Good exersise for me to debug as i am going try to learn Perl soon so I won`t have to bother all of you with these questions.

Hmmm. Works for me. Ah, I see what it is (after cutting and pasting from the email and then trying to run it) - the line wrapping in Netscape has put the end of the comment from one line onto the following line. These two lines should actually only be one line: if ($ARGV[0] ne "") { # If a directory is specified, use that The comment is unecessary, so you can just replace these 'two' lines with: if ($ARGV[0] ne "") { 'use' also happens to be a statement in Perl, which is what causes the huge long error message. I've also noticed that I missed a line out when I cut and pasted into Netsape, although it will still work if you specify the directory. Insert the following as the second line: $rendir = "./"; I'm glad you got it sorted anyway. I know you don't need this, but I thought I'd just correct it for the sake of completeness. In short, replace: #!/usr/bin/perl if ($ARGV[0] ne "") { # If a directory is specified, use that with: #!/usr/bin/perl $rendir = "./"; if ($ARGV[0] ne "") { Sorry about that, Chris P.S. Have fun learning Perl. -- __ _ -o)/ / (_)__ __ ____ __ Chris Reeves /\\ /__/ / _ \/ // /\ \/ / ICQ# 22219005 _\_v __/_/_//_/\_,_/ /_/\_\ -- To unsubscribe send e-mail to suse-linux-e-unsubscribe@suse.com For additional commands send e-mail to suse-linux-e-help@suse.com Also check the FAQ at http://www.suse.com/Support/Doku/FAQ/