Xref: utzoo comp.lang.perl:4246 alt.sources:3304
Path: utzoo!utgpu!cs.utexas.edu!asuvax!ncar!elroy.jpl.nasa.gov!swrinde!zaphod.mps.ohio-state.edu!think.com!mintaka!snorkelwacker.mit.edu!ira.uka.de!smurf!ppcnet!ppcger!Sepp
From: Sepp@ppcger.ppc.sub.org (Josef Wolf)
Newsgroups: comp.lang.perl,alt.sources
Subject: Re: An AWK script to check "junk" for newsgroups
Message-ID: <NE-4OD@ppcger.ppc.sub.org>
Date: 24 Feb 91 23:44:40 GMT
References: <112753@mamnix.hamm.sub.org> <~Y+&#J#@ads.com>
            <u4+nMD@ppcger.ppc.sub.org> <11548@jpl-devvax.JPL.NASA.GOV>
Lines: 57

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

] In article <u4+nMD@ppcger.ppc.sub.org> Sepp@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@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


Brought to you by Super Global Mega Corp .com