Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!usc!zaphod.mps.ohio-state.edu!uakari.primate.wisc.edu!ames!ncar!tank!gargoyle!chinet!les
From: les@chinet.chi.il.us (Leslie Mikesell)
Newsgroups: comp.lang.perl
Subject: Re: perl memory usage? (JOMT)
Message-ID: <1990Mar27.214137.17542@chinet.chi.il.us>
Date: 27 Mar 90 21:41:37 GMT
References: <1990Mar19.210743.15896@chinet.chi.il.us> <7480@jpl-devvax.JPL.NASA.GOV> <1990Mar26.174959.20102@chinet.chi.il.us>
Reply-To: les@chinet.chi.il.us (Leslie Mikesell)
Organization: Chinet - Chicago Public Access UNIX
Lines: 21

In article <7556@jpl-devvax.JPL.NASA.GOV> lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall) writes:

>	$* = 1;
>	if ($new !~ /\nSUMMARY:\n/) {
>	    if (($was) = ($old =~ /^SUMMARY:\n([^\0]*)^STATUS:/)) {
>		substr($new,index($new,"STATUS:\n"),0) = $was;
>	    }
>	}
Yep, that does it! (Actually, I need the SUBJECT: line also, but I get
the idea).  Thanks!

Now,
  Just One More Thing

Wouldn't it be nice if perl had a built-in "compress" function for things
that are really too small to fork a process for each item (say about
news article size...) and you don't want to mung them all together so
that you have to uncompress the whole mess to find one?

Les Mikesell
  les@chinet.chi.il.us