home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 2 / 2863 < prev    next >
Encoding:
Internet Message Format  |  1991-02-28  |  2.3 KB
  1. From: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
  2. Newsgroups: comp.lang.perl,alt.sources
  3. Subject: Re: An AWK script to check "junk" for newsgroups
  4. Message-ID: <11594@jpl-devvax.JPL.NASA.GOV>
  5. Date: 26 Feb 91 19:15:22 GMT
  6.  
  7. In article <NE-4OD@ppcger.ppc.sub.org> Sepp@ppcger.ppc.sub.org (Josef Wolf) writes:
  8. : lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall) writes:
  9. : 
  10. : ] In article <u4+nMD@ppcger.ppc.sub.org> Sepp@ppcger.ppc.sub.org
  11. : ] (Josef Wolf) writes:
  12. : ] : Well. Fine fine. But what about using standard-tools? Which *IX is
  13. : ] : _delivered_ with Perl?
  14. : 
  15. : ] Convex's OS.  BSD 4.4 will have it.  It's included with GNU.  Eventually
  16. : ] everyone will include it, I suspect.
  17. : 
  18. : C'mon! Get your feet back on earth. I'm sure there are _some_ people out
  19. : in net.lands who don't want to buy a new OS just to get the fun of Perl.
  20.  
  21. Who ever said they had to buy a new OS to get the fun of Perl?  I fear one
  22. of your inclusive ORs turned into an exclusive OR while you weren't looking.
  23.  
  24. : ] : Now here is my version of NEWJUNK. It could have been better, but older
  25. : ] : versions of gawk have these ugly memory-leak, so you have to sort out
  26. : ] : the 'Newsgroups:' lines and pipe it into gawk :-(
  27. : 
  28. : ] Well. Fine fine. But what about using standard-tools? Which *IX is
  29. : ] _delivered_ with gawk?  :-)
  30. : 
  31. : Why don't you use awk ? ;-)
  32.  
  33. I do.  When appropriate.
  34.  
  35. : ] : The awk-version will most likely be slower than the C-version and the
  36. : ] : Perl-Version, but it schould run on most *IX with little modifications.
  37. :                                                       ^^^^^^
  38. : 
  39. : ] Right.
  40. : ] On my Vax:
  41. : ] $ awk -f newjunk.awk
  42. : [ some error messages deleted ]
  43. : 
  44. : Well, I said 'with _little_ modifications'. Not 'without modifications'...
  45.  
  46. You used a bunch of features that weren't even available in "standard" awk,
  47. such as user-defined functions, match() and getline with redirections.
  48. I don't think that counts as "little modification".
  49.  
  50. : ] On my Sun:
  51. : 
  52. : ] $ nawk -f newjunk.awk
  53. : ] nawk: empty regular expression
  54. : ]  source line number 51
  55. : ]  context is
  56. : ]          >>> // <<<  {
  57. : 
  58. : 
  59. : Waht about this one:
  60. : /.*/    {
  61. : 
  62. : ] Your "standard" tools ain't so standard.   :-(
  63. : 
  64. : But much more standard than Perl.
  65.  
  66. In a year, this will be a topic for historians.  nawk has priced itself
  67. out of the market, and gawk is already diverging from nawk.
  68.  
  69. Larry
  70.