home *** CD-ROM | disk | FTP | other *** search
- 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
- <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
-