Path: utzoo!utgpu!news-server.csri.toronto.edu!bonnie.concordia.ca!uunet!zaphod.mps.ohio-state.edu!caen!ox.com!ox.com!emv
From: emv@ox.com (Ed Vielmetti)
Newsgroups: comp.lang.perl
Subject: Re: pager pipes
Message-ID: <EMV.91Feb17172854@poe.aa.ox.com>
Date: 17 Feb 91 22:28:54 GMT
References: <1991Feb16.210445.7760@convex.com>
	<1991Feb17.024739.17286@iwarp.intel.com>
Sender: usenet@ox.com (Usenet News Administrator)
Organization: OTA Limited Partnership, Ann Arbor MI.
Lines: 17
In-Reply-To: merlyn@iwarp.intel.com's message of 17 Feb 91 02:47:39 GMT

Not exactly a followup to the above, but here goes.

I have a pager set up for some particular output, like so
	open(PAGER,$pager) || warn "meaningful warning";
	print PAGER (join("\n",@result),\n);
	close(PAGER);

The result can be kind of long-winded, so I'd like to let people
interrupt out of the pager and still be returned gracefully to the
main loop of my script.  As it stands now, if $pager = "|cat" and you
control-C the output, you lose.

Is it a matter of eval'ing something, or some kind of signal handler
to set up, or something else I'm missing.  I wouldn't think that a ^C
sent to cat would leak back up to perl.

--Ed