home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / unix / question / 9628 < prev    next >
Encoding:
Internet Message Format  |  1992-07-30  |  2.7 KB
  1. Path: sparky!uunet!zaphod.mps.ohio-state.edu!sdd.hp.com!usc!nic!netlabs!lwall
  2. From: lwall@netlabs.com (Larry Wall)
  3. Newsgroups: comp.unix.questions
  4. Subject: Re: Regular Expressions with [fe]grep (AGAIN)
  5. Message-ID: <1992Jul31.065335.22660@netlabs.com>
  6. Date: 31 Jul 92 06:53:35 GMT
  7. References: <1992Jul30.110331.3647@news.acns.nwu.edu>
  8. Sender: news@netlabs.com
  9. Organization: NetLabs, Inc.
  10. Lines: 82
  11. Nntp-Posting-Host: scalpel.netlabs.com
  12.  
  13. In article <1992Jul30.110331.3647@news.acns.nwu.edu> navarra@casbah.acns.nwu.edu (John Navarra) writes:
  14. : Now, however, I want to change each '0' to a '123':
  15. : 
  16. : 123
  17. : 123123
  18. : 123123123
  19. : 123123123123
  20. : 123123123123123
  21. : 123123123123123123
  22. : 123123123123123123123
  23. : 
  24. : and I want to get the same results with the pattern matching.
  25. : I want to print out the lines with one string of '123', the 
  26. : lines with two strings of '123',  or at least 1 but no more than
  27. : 3 strings of '123'  
  28. : 
  29. : Is there some way using a form of grep to do this? Egrep has '()' grouping
  30. : but doesn't have the \{n,m\} stuff. And grep has the opposite. Grrr. 
  31.  
  32. Outa luck with *grep.  Sorry.  Perl does what you expect:
  33.  
  34.     perl -ne "print if /^(123){1}$/"
  35.     perl -ne "print if /^(123){2}$/"
  36.     perl -ne "print if /^(123){1,3}$/"
  37.  
  38. : Secondly, what if my file looked like:
  39. : 
  40. : 123.105.113.13
  41. : 123.123.113.13
  42. : 123.123.123.13
  43. : 123.123.123.123
  44. : 
  45. : How would I print out the lines matching the following conditions:
  46. : 1) only one occurence of '123'
  47.  
  48. That's problematical, because you can't anchor with ^ and $ to keep
  49. from matching lines with more than you're interested in.  Did you
  50. mean consecutive occurrences?  Then you can say
  51.  
  52.     perl -ne 'print if /(123\.?)+/ && length($&) <= 4'
  53.  
  54. : 2) two or more occurences of '123'
  55.  
  56.     perl -ne 'print if /(123\.?){2,}/ && length($&) <= 8'
  57.  
  58. : 3) at least two but no more than 4 occurences of '123'.
  59.  
  60.     perl -ne 'print if /(123\.?){2,}/ && length($&) <= 16'
  61.  
  62. If I were forced to do it in sed, I'd do something tricksy like
  63.  
  64.     s/$/./;
  65.     s/123\./X/g
  66.     /X\{2,4\}/!d
  67.     s/X/123./
  68.     s/\.$//
  69.  
  70. It becomes somewhat simpler if you don't require consecutive
  71. occurrences, since Perl's substitute operator will return how many
  72. substitutions it did.  (I presume that you only want 123 as a complete
  73. "word", so I've used \b to assert word boundaries here.)
  74.  
  75. : 1) only one occurence of '123'
  76.  
  77.     perl -ne 'print if s/\b123\b/123/g == 1'
  78.  
  79. : 2) two or more occurences of '123'
  80.  
  81.     perl -ne 'print if s/\b123\b/123/g >= 2'
  82.  
  83. : 3) at least two but no more than 4 occurences of '123'.
  84.  
  85.     perl -ne '$count = s/\b123\b/123/g; print if $count >= 2 && $count <= 4'
  86.  
  87. In recent versions of Perl you can also do it with a g modifier on
  88. an ordinary pattern match:
  89.  
  90.     perl -ne '@c = /\b123\b/g; print if @c == 1'
  91.     etc.
  92.  
  93. Larry Wall
  94. lwall@netlabs.com
  95.