🚀 go-pugleaf

In article <Bx5t40.5DB@unx.sas.com>, sasmob@chewy.unx.sas.com (Mark Burhans) writes:
|> 
|> In article <1992Nov2.195646.27860@spectrum.xerox.com>, kris@xerox.com (Kris Schneider) writes:
|> |> Here are some examples of what needs to be done:
|> |> 
|> |> hello-world => HelloWorld
|> |> helloworld => Helloworld
|> |> HELLOWORLD => Helloworld
|> |> HELLO-WORLD => HelloWorld
|> |> 
|> 
|> ----Cut Here----
|> {
|>     for( f=1; f<=NF; f++ )
|>     {
|>         # 1.  Make first character Upper Case.
|>         # 2.  Make rest of the word Lower Case.
|> 
|>         sub( substr($f,1,1), toupper( substr( $f, 1, 1)), $f );
|>         sub( substr($f,2), tolower( substr($f,2)), $f );
|> 
|>         # If a '-' is found, get rid of it and make the next
|>         # character Upper Case.
|> 
|>         while( (i=index( $f, "-" )) != 0 )
|>         {
|>             pattern = substr( $f, i, 2 );
|>             sub( pattern, toupper(substr($f,i+1,1)), $f);
|>         }
|> 
|>         # Output what you have.
|> 
|>         print $f                  <------------+
|>     }                                          |
         <----------------------------------------~----------+
|> }                                              |          |
|> ----Cut Here----                               |          |
                                                  |          |
                                                  |          |
Actually, it would have been better to put this --+   here --+  as a
"print $0"... anyway...

I liked the perl one by Randal (merlyn@ora.com) a lot!  That's what
prompted me to changed the "print $f".

Tryin' to keep up with those Perl Maniacs... er... Hackers... :-)
-- 
---Mark C. Burhans---sasmob@chewy.unx.sas.com---919/677-8001 ext 7324
SAS Institute, Inc., USA, SAS Campus Drive, Cary, NC 27513.
"I'm convinced that Chopin too would dig samba if he had a chance to
groove." -- Basia