An AWK script to check "junk" for newsgroups

[Josef Wolf]

lwall at jpl-devvax.JPL.NASA.GOV (Larry Wall) writes:

] In article <u4+nMD at ppcger.ppc.sub.org> Sepp at ppcger.ppc.sub.org
] (Josef Wolf) writes:
] : Well. Fine fine. But what about using standard-tools? Which *IX is
] : _delivered_ with Perl?

] Convex's OS.  BSD 4.4 will have it.  It's included with GNU.  Eventually
] everyone will include it, I suspect.

C'mon! Get your feet back on earth. I'm sure there are _some_ people out
in net.lands who don't want to buy a new OS just to get the fun of Perl.

] : Now here is my version of NEWJUNK. It could have been better, but older
] : versions of gawk have these ugly memory-leak, so you have to sort out
] : the 'Newsgroups:' lines and pipe it into gawk :-(

] Well. Fine fine. But what about using standard-tools? Which *IX is
] _delivered_ with gawk?  :-)

Why don't you use awk ? ;-)

] : The awk-version will most likely be slower than the C-version and the
] : Perl-Version, but it schould run on most *IX with little modifications.
                                                      ^^^^^^

] Right.
] On my Vax:
] $ awk -f newjunk.awk
[ some error messages deleted ]

Well, I said 'with _little_ modifications'. Not 'without modifications'...

] On my Sun:

] $ nawk -f newjunk.awk
] nawk: empty regular expression
]  source line number 51
]  context is
]          >>> // <<<  {


Waht about this one:
/.*/    {

] Your "standard" tools ain't so standard.   :-(

But much more standard than Perl.

Greets

    Sepp

| Josef Wolf, Germersheim, Germany | +49 7274 8047  -24 Hours- (call me :-)
| ...!ira.uka.de!smurf!ppcger!sepp | +49 7274 8048  -24 Hours-
|     sepp at ppcger.ppc.sub.org      | +49 7274 8967  18:00-8:00, Sa + Su 24h
|  "is there anybody out there?"   | all lines 300/1200/2400 bps 8n1