home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 2 / 2859 < prev    next >
Encoding:
Internet Message Format  |  1991-02-26  |  2.0 KB
  1. From: Sepp@ppcger.ppc.sub.org (Josef Wolf)
  2. Newsgroups: comp.lang.perl,alt.sources
  3. Subject: Re: An AWK script to check "junk" for newsgroups
  4. Message-ID: <NE-4OD@ppcger.ppc.sub.org>
  5. Date: 24 Feb 91 23:44:40 GMT
  6.             <u4+nMD@ppcger.ppc.sub.org> <11548@jpl-devvax.JPL.NASA.GOV>
  7. Lines: 57
  8.  
  9. lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall) writes:
  10.  
  11. ] In article <u4+nMD@ppcger.ppc.sub.org> Sepp@ppcger.ppc.sub.org
  12. ] (Josef Wolf) writes:
  13. ] : Well. Fine fine. But what about using standard-tools? Which *IX is
  14. ] : _delivered_ with Perl?
  15.  
  16. ] Convex's OS.  BSD 4.4 will have it.  It's included with GNU.  Eventually
  17. ] everyone will include it, I suspect.
  18.  
  19. C'mon! Get your feet back on earth. I'm sure there are _some_ people out
  20. in net.lands who don't want to buy a new OS just to get the fun of Perl.
  21.  
  22. ] : Now here is my version of NEWJUNK. It could have been better, but older
  23. ] : versions of gawk have these ugly memory-leak, so you have to sort out
  24. ] : the 'Newsgroups:' lines and pipe it into gawk :-(
  25.  
  26. ] Well. Fine fine. But what about using standard-tools? Which *IX is
  27. ] _delivered_ with gawk?  :-)
  28.  
  29. Why don't you use awk ? ;-)
  30.  
  31. ] : The awk-version will most likely be slower than the C-version and the
  32. ] : Perl-Version, but it schould run on most *IX with little modifications.
  33.                                                       ^^^^^^
  34.  
  35. ] Right.
  36. ] On my Vax:
  37. ] $ awk -f newjunk.awk
  38. [ some error messages deleted ]
  39.  
  40. Well, I said 'with _little_ modifications'. Not 'without modifications'...
  41.  
  42. ] On my Sun:
  43.  
  44. ] $ nawk -f newjunk.awk
  45. ] nawk: empty regular expression
  46. ]  source line number 51
  47. ]  context is
  48. ]          >>> // <<<  {
  49.  
  50.  
  51. Waht about this one:
  52. /.*/    {
  53.  
  54. ] Your "standard" tools ain't so standard.   :-(
  55.  
  56. But much more standard than Perl.
  57.  
  58. Greets
  59.  
  60.     Sepp
  61.  
  62. | Josef Wolf, Germersheim, Germany | +49 7274 8047  -24 Hours- (call me :-)
  63. | ...!ira.uka.de!smurf!ppcger!sepp | +49 7274 8048  -24 Hours-
  64. |     sepp@ppcger.ppc.sub.org      | +49 7274 8967  18:00-8:00, Sa + Su 24h
  65. |  "is there anybody out there?"   | all lines 300/1200/2400 bps 8n1
  66.