home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / unix / shell / 5086 < prev    next >
Encoding:
Internet Message Format  |  1992-12-16  |  2.2 KB
  1. Path: sparky!uunet!spool.mu.edu!uwm.edu!psuvax1!ukma!cs.widener.edu!dsinc!phent!kkress
  2. From: kkress@phent.UUCP (Kenneth R. Kress)
  3. Newsgroups: comp.unix.shell
  4. Distribution: world
  5. Subject: Re: Substituing using sed, ...
  6. Keywords: sed awk substituting
  7. Message-ID: <9212158153@phent.UUCP>
  8. Organization: That's Entertainment BBS
  9. Date: Tue, 15 Dec 92 22:06:54 EST
  10. Lines: 63
  11.  
  12. Uwe Waldmann writes:
  13. > In article <1992Dec14.042422.22897@candle.uucp>, root@candle.uucp
  14. > (Bruce Momjian) writes:
  15. > > Here is a sample file:
  16. > > 
  17. > >     acaX csacacXcascsc  
  18. > >     "cscaXcacsXcs"  csaXc "X" caX
  19. > >     Xaca Xcaca  ca "caXcas"  ccaX cacs
  20. > > 
  21. > > I want to use sed to replace X with another character, but only if the X
  22. > > does not appear within quotes.  The quoted strings do not extend across
  23. > > new-lines.
  24. > 
  25. > That's easy:
  26. > 
  27. > #!/bin/sh
  28. > sed -e '
  29. > s/^/\
  30. > /
  31. > : a
  32. > s/\(\n[^"]*\)X/\1Y/
  33. > t a
  34. > /\n.*".*"/ {
  35. > s/\n\([^"]*\)"\([^"]*\)"/\1"\2"\
  36. > /
  37. > t a
  38. > }
  39. > s/\n//
  40. > ' ${1+"$@"}
  41. > 
  42. Uwe Waldmann,
  43.     I was unable to test your solution because my version of sed
  44. gave me pattern overflow errors. And I was unable to decipher your
  45. technique. But trying to understand it suggested several other
  46. strategies.
  47.     If Bruce Momjian doesn't mind deconstructing his original file,
  48. one could do:
  49.     tr -s ' ' '\n' datafile        |    # every word to a line
  50.     sed 's/    //'             |    # remove tabs
  51.     sed '/^[^"]/s/X/Y/g'             # if line has no quote
  52.                         # do the translation
  53.     And this unsatisfactory solution led me to the solution I 
  54. should have thought of first:
  55. awk '
  56. {    # do this for every line
  57.     for (i = 1; i <= NF; i++) {        # loop through words on line
  58.         if ( $i !~ /\"/) {        # not quoted
  59. #            gsub (/X/,"Y",$i )    #   substitute Y for X
  60.             printf ("%s", $i )     #   print out word
  61.         } else {            # else
  62.             printf ("%s", $i )    #   print out word
  63.         }
  64.     }                    # line is done, so
  65.     printf "\n"                # print newline
  66. }'
  67.     This requires nawk or gawk.
  68.                 Ken.
  69. ===================================================================
  70. Ken Kress, Glenside, PA * dsinc!phent!kkress 
  71.     Daring ideas are like chessmen moved forward;
  72.     they may be beaten, but they may start a winning game.
  73.                     Johann Wolfgang von Goethe
  74. -------------------------------------------------------------------
  75.