home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / comp / unix / question / 12955 < prev    next >
Encoding:
Internet Message Format  |  1992-11-05  |  1.3 KB
  1. Path: sparky!uunet!ukma!darwin.sura.net!zaphod.mps.ohio-state.edu!usc!news!netlabs!lwall
  2. From: lwall@netlabs.com (Larry Wall)
  3. Newsgroups: comp.unix.questions
  4. Subject: Re: Erasing words with less than n letters
  5. Message-ID: <1992Nov5.183133.1471@netlabs.com>
  6. Date: 5 Nov 92 18:31:33 GMT
  7. References: <1992Nov4.180618.9183@inesc.pt> <1992Nov5.011854.25944@umbc3.umbc.edu>
  8. Sender: news@netlabs.com
  9. Organization: NetLabs, Inc.
  10. Lines: 44
  11. Nntp-Posting-Host: scalpel.netlabs.com
  12.  
  13. In article <1992Nov5.011854.25944@umbc3.umbc.edu> rouben@math9.math.umbc.edu (Rouben Rostamian) writes:
  14. : In article <1992Nov4.180618.9183@inesc.pt> jota@iguana.inesc.pt writes:
  15. : >    Is there a way of erasing the words with less than n letters
  16. : >using unix ? sed ? awk ? The words (in a dictionary) are sorted and
  17. : >one per line.
  18. : 
  19. : To print input lines containing n or more characters:
  20. : 
  21. : awk 'length($0) >= n { print }'
  22.  
  23. Here it is in sed (using 9 for our "n" to avoid confusion with -n):
  24.  
  25.     sed -n '/.\{9\}/p'
  26.  
  27. Of course, maybe you prefer grep:
  28.  
  29.      grep '.\{9\}'
  30.  
  31. Or nroff:
  32.  
  33.     #!/bin/sh
  34.  
  35.     (
  36.     cat <<-'END'
  37.         .de TR
  38.         'di
  39.         .pl 1000v
  40.         .if \\n(dl/24>=9 .aa
  41.         .ST
  42.         ..
  43.         .de ST
  44.         .pl 1n
  45.         'di aa
  46.         .nr .i 0
  47.         .it 1 TR
  48.         ..
  49.         .nf
  50.         .ST
  51.         END
  52.     cat ${1-"$@"}
  53.     ) | nroff
  54.  
  55. Larry Wall
  56. lwall@netlabs.com
  57.