home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / comp / unix / shell / 4609 < prev    next >
Encoding:
Internet Message Format  |  1992-11-09  |  1.8 KB
  1. Xref: sparky comp.unix.shell:4609 comp.lang.misc:3557
  2. Newsgroups: comp.unix.shell,comp.lang.misc
  3. Path: sparky!uunet!munnari.oz.au!cs.mu.OZ.AU!minh
  4. From: minh@lis.rch.unimelb.edu.au (Minh Tran)
  5. Subject: Re: Need script (awk/sed/...) to remove dashes and do initial caps
  6. Message-ID: <9231509.5038@mulga.cs.mu.OZ.AU>
  7. Sender: news@cs.mu.OZ.AU
  8. Organization: Computer Science, University of Melbourne, Australia
  9. X-Newsreader: TIN [version 1.1 PL6]
  10. References: <BxB2D1.7yL@unx.sas.com>
  11. Date: Mon, 9 Nov 1992 22:32:39 GMT
  12. Lines: 41
  13.  
  14. Mark Burhans (sasmob@chewy.unx.sas.com) wrote:
  15. > |> {
  16. > |>     split($1, parts, "-") ;
  17. > |>     printf("%s%s", toupper(substr(parts[1],1,1)), tolower(substr(parts[1],2)));
  18. > |>     printf("%s%s\n", toupper(substr(parts[2],1,1)), tolower(substr(parts[2],2))) }
  19. > 
  20. > It works if there is only one word with one "-" in it.  This is neat though.
  21. > That could probably be modified with some effort to handle more than one 
  22. > word per line, and more than one "-".  Some of the LISP I've written and
  23. > seen has variables and procedures with names like:
  24. >   "print-no-of-arguments"  or
  25. >   "get-next-field"
  26. > 
  27. > I messed with this awk for a minute (didn't put much into it) and didn't get
  28. > very far.
  29. > 
  30. > Nice input.
  31. > 
  32.  
  33.     Having got this far the rest is quite easy:
  34.  
  35. {
  36.     for (i = 1; i <= NF; i++)
  37.     {
  38.         n = split($i, part, "-") ;
  39.         for (j = 1; j <= n; j++)
  40.             printf("%s%s", toupper(substr(part[j], 1, 1)), tolower(substr(part[j], 2)));
  41.         printf(" ");  # Just for this example
  42.     }
  43.     printf("\n");
  44. }
  45.  
  46.     Anyway you got the idea.
  47.     ---
  48.     minh
  49.  
  50. --
  51. |>    B\iochemistry                        Minh Tra/N                       <|
  52. |>     I\nformation     minh@lis.rch.unimelb.edu.a/U                        <|
  53. |>      S\ervice                     (03) 345-590/8                         <|
  54. |>       D\epartment         Melbourne, Australi/A                          <|
  55.