Path: utzoo!attcan!uunet!cs.utexas.edu!samsung!uakari.primate.wisc.edu!uflorida!ukma!sean
From: sean@ms.uky.edu (Sean Casey)
Newsgroups: comp.lang.perl
Subject: Re: Perl Neophyte Needs Help
Message-ID: <sean.646514135@s.ms.uky.edu>
Date: 27 Jun 90 19:15:35 GMT
References: <HOGAN.90Jun26123510@trollope.csl.sri.com> <8504@jpl-devvax.JPL.NASA.GOV>
Distribution: comp
Organization: The Leaning Tower of Patterson Office @ The Univ. of KY
Lines: 23

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

|eval <<"EOF";		# to avoid recompile pattern each time
|    while (<>) {
|	print if /$pattern/;
|    }
|EOF

Thanks for posting that info. It reminds me one of the problems I have
using perl, which is making things efficient.

I've got a few scripts that munch on some data, a lot of data, and I never
would have thought of a trick like that. That's one of the things I like
about perl: there's a lot of ways to do things. Unfortunately, that's one
of the things that bothers me most about perl: I don't usually pick the
most efficient way.

It would be kind of nice to get some speedup tips published. Some of the
not-so-obvious ways of making scripts run faster. My script takes 15-20
minutes to munch the data. Something tells me with some info like that,
it might be running in 5 minutes.

Sean