Renaming files

[teser]

How would I rename many files (over 100 total) in a directory.
Example of my files:
file1.word.1
file2.word.2
file3.word.3

I want them to be named:
File1_word_1
File2_word_2
File3_word_3

My goal is to get rid of the periods and put in underline bars for each
file name.

Here is my script that didnt work->
#!/bin/ksh
for file in wer
do
mv *.*.* _._._
done

 

[gregor weertman]

here is that does work (i hope)
#!/bin/ksh
for file in *.*.*
do
echo mv $file `echo $file|awk '{ gsub( "\.", "_&quot
print toupper( substr( $1, 1, 1)) substr( $1, 2)}' `
done

succes Gregor Gregor.Weertman@mailcity.com