Path: utzoo!censor!geac!torsqnt!news-server.csri.toronto.edu!rutgers!tut.cis.ohio-state.edu!snorkelwacker.mit.edu!bloom-beacon!eru!hagbard!sunic!mcsun!hp4nl!mhres!squirrel!jv
From: jv@mh.nl (Johan Vromans)
Newsgroups: comp.lang.perl
Subject: Re: top-of-form w/o formfeed
Message-ID: <1990Nov25.122438.3058@squirrel.mh.nl>
Date: 25 Nov 90 12:24:38 GMT
References: <1990Nov20.222930.1152@squirrel.mh.nl>
	<10500@jpl-devvax.JPL.NASA.GOV>
Sender: jv@squirrel.mh.nl (Johan Vromans)
Reply-To: Johan Vromans <jv@mh.nl>
Distribution: comp
Organization: Multihouse Automation, the Netherlands
Lines: 33
In-Reply-To: lwall@jpl-devvax.JPL.NASA.GOV's message of 21 Nov 90 17:49:14 GMT

In article <10500@jpl-devvax.JPL.NASA.GOV> lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall) writes:
   In article <1990Nov20.222930.1152@squirrel.mh.nl> Johan Vromans <jv@mh.nl> writes:
   : Using write: how can I force the $^ format to be printed without a
   : formfeed character being inserted?

   Depends on what you mean.  If you mean that you want to write the top
   of form format in the middle of a page, something like

	   {
	       local($~) = $^;
	       write;
	   }

   should work.

That's what I meant. I've been thinking to use "$~ = $^; write" but I
discarded this solution since it needs knowledge of the current output
format. I didn't think of localizing $~ .

While we're on the subject:

 - The fact that the formfeed is hard-coded bugs me. Almost anything
   in perl can be controlled/modified using special variables.
 - The possibility to have footers is still a wish. If you forbid the
   use of variable-line formats (both ^ and ~) in footers, it
   shouldn't be that hard...

	Johan
-- 
Johan Vromans				       jv@mh.nl via internet backbones
Multihouse Automatisering bv		       uucp: ..!{uunet,hp4nl}!mh.nl!jv
Doesburgweg 7, 2803 PL Gouda, The Netherlands  phone/fax: +31 1820 62911/62500
------------------------ "Arms are made for hugging" -------------------------