Path: utzoo!utgpu!news-server.csri.toronto.edu!rutgers!usc!zaphod.mps.ohio-state.edu!uakari.primate.wisc.edu!aplcen!uunet!mcsun!unido!tub!tubopal!ripley From: ripley@opal.cs.tu-berlin.de (Hans-Ch. Eckert) Newsgroups: comp.lang.perl Subject: Re: Recent patches Message-ID: Date: 22 Aug 90 23:51:26 GMT References: <1990Aug22.062517.25360@iwarp.intel.com> Sender: news@tubopal.UUCP Distribution: comp Organization: Technical University of Berlin, FRG Lines: 20 In-reply-to: merlyn@iwarp.intel.com's message of 22 Aug 90 06:25:17 GMT To: In article <1990Aug22.062517.25360@iwarp.intel.com> merlyn@iwarp.intel.com (Randal Schwartz) writes: Larry's trying to keep you from using grep, knowing that Perl will do the job. Use: perl -ne 'print "$ARGV: $_" if /^Subject:/; close(ARGV) if /^$/' * instead. It's probably faster anyway, since you don't have to look all the way through each file. Tough luck as Perl is not available on the university's net :-( (That's why I had to wait for the ST-Port to be able to print the refguide !) Greetings, RIPLEY -- Greetings from RIPLEY | UUCP: ripley@tubopal.UUCP (ripley@opal.cs.tu-berlin.de) Hans-Christian Eckert | ...!unido!tub!opal!ripley (Europe) D-1000 Berlin 30 | ...!pyramid!tub!opal!ripley (World) Regensburger Str. 2 | BITNET: ripley%tubopal@DB0TUI11.BITNET (saves $$$)