Name Changing

[Edward Smith_1]

I have a dilemia. I have a lot of files with mixed cases (upper and lower) (Example: fileEXAMPLE.SH, TESTfile.sh). I need to write a script to insert underscores between the case changes (Example: File named fileEXAMPLE.SH would change to file_EXAMPLE.SH). Can anyone help??

EDIT:
Script needs to be in the UNIX Korn Shell.

[Dietmar Konermann]

The korn shell does not have real regular expressions... so I think the task would be difficult.

I would use the sed to do the actual replacement.

sed -e 's/\(^[a-z][a-z]*\)\([A-Z][A-Z]*\)/\1_\2/g' -e 's/\(^[A-Z][A-Z]*\)\([a-z][a-z]*\)/\1_\2/g'

Best regards...
Dietmar.

[Dietmar Konermann]

Oops, just saw that I left the '^' in the expressions. You should leave it the case changes more than once in a file name and you want multiple '_'.

[Jean-Louis Phelix]

Hi,

Perhaps a shorter variant of Dietmar solution :

sed -e 's/[a-z][a-z]*/&_/g' -e 's/[A-Z][A-Z]*/&_/g' -e 's/_$//'

Regards

[Jean-Louis Phelix]

Sorry ... Dietmar solution seems better, because I have a problem with dots ! Although this one is not genral but works ...

sed -e 's/[a-z][a-z]*/&_/g' -e 's/[A-Z][A-Z]*/&_/g' -e 's/_$//' -e 's/_\././'

Regards.

[Dietmar Konermann]

Hi, Jean-Louis!

[NIT-PICK MODE ON]

What happens with e.g. "aaa111"?

[NIT-PICK MODE OFF]

:-)
Dietmar.

[Jean-Louis Phelix]

Well Dietmar ... I could perhaps simply admit that your solution works and mine doesn't ? Or I could say that I only wanted to demonstrate the use of '&' :^) ...

By the way, I wanted to tell you that I apreciate a lot your contributions to this forum. Fast and efficient !

Regards.

[W.C. Epperson]

Dietmar:

[NIT-NIT-PICK MODE ON]

Where's the case change in "aaa111"?

[NIT-NIT-PICK MODE OFF]

;)

[Jack Werner]

Excuse me! Relational expressions are certainly part of and supported by Korn-shell. Reference the O'Reilly Korn-Shell Programming book.

[Jerome Salyers]

just for another perspective, i whipped up a little simple perl script which does this same thing, which a few checks...

if you like...

the file is already in UNIX... don't forget to change the directory of perl on the first line...

ciao

jerome

EDIT
the script can be run from ksh ;)

see attached