Path: utzoo!utgpu!news-server.csri.toronto.edu!bonnie.concordia.ca!uunet!convex!usenet
From: tchrist@convex.COM (Tom Christiansen)
Newsgroups: comp.lang.perl
Subject: Re: help: trick to get piped output to work with more
Message-ID: <1991Jun06.183615.17285@convex.com>
Date: 6 Jun 91 18:36:15 GMT
References: <1991Jun6.174727.6387@jato.jpl.nasa.gov>
Sender: usenet@convex.com (news access account)
Reply-To: tchrist@convex.COM (Tom Christiansen)
Organization: CONVEX Software Development, Richardson, TX
Lines: 25
Nntp-Posting-Host: pixel.convex.com

From the keyboard of mwette@csi.jpl.nasa.gov (Matt Wette):
:Is there a trick to getting 
:	open(OUT, "| more");
:	...
:	write(OUT);
:to work?
:
:The program dies after the first page (`more' waiting for keyed input).

Seems to work ok for me here.  

format OUT = 
blah
blah
.

open(OUT, "| more");
# select(OUT); $| = 1;  # may want this
for (1..100) { write(OUT); }
close(OUT);

--tom
--
Tom Christiansen		tchrist@convex.com	convex!tchrist
	    "Perl is to sed as C is to assembly language."  -me