Path: utzoo!utgpu!news-server.csri.toronto.edu!bonnie.concordia.ca!uunet!pilchuck!amc-gw!stuart
From: stuart@amc.com (Stuart Poulin)
Newsgroups: comp.lang.perl
Subject: Re: problem: open(OUT, "| more") doesn't work for me
Message-ID: <1991Jun12.235951.11191@amc.com>
Date: 12 Jun 91 23:59:51 GMT
References: <1991Jun12.141508.6026@jato.jpl.nasa.gov>
Reply-To: stuart@tfatf.amc.com (Stuart Poulin)
Organization: Applied Microsystems, Redmond, WA
Lines: 17


Hey I know this one, (because I asked basically the same question a few
weeks back).  It's in the man page under close(FILEHANDLE). "... Close
will wait for the process executing the pipe to complete ...".  You
just need to add close($out) after your write loop.  At least that's
what I did to get your script to work for me.

The -m to pipe the output to more is a nice feature, but how about
looking in the users environment for the variable PAGER and if it's is
set then use this for the pager, if is not set then default to more.


"Who's Perl?!" - My wife to me as I was waking up one morning.

Stuart Poulin                             DNS: stuart@amc.com
Applied Microsystems Corporation         UUCP: amc-gw!stuart
Redmond, Washington  98073               Dial: 800-ASK-4AMC,206-882-2000