[comp.lang.perl] help: trick to get piped output to work with more

mwette@csi.jpl.nasa.gov (Matt Wette) (06/07/91)

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).

Thanks,
Matt
-- 
 _________________________________________________________________
 Matthew R. Wette           | Jet Propulsion Laboratory, 198-326
 mwette@csi.jpl.nasa.gov    | 4800 Oak Grove Dr, Pasadena,CA 91109
 -----------------------------------------------------------------

tchrist@convex.COM (Tom Christiansen) (06/07/91)

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