Paul Lalli wrote: > On Aug 20, 3:10 pm, [EMAIL PROTECTED] (Mathew Snyder) wrote: >> I run a script which creates a small report for different users of a system >> we >> have here at work. The report is a simple text document formated with, of >> all >> things, the format function. It uses a TOP to create a header for each of >> our >> customers which a user has worked with. For some reason the first and only >> the >> first write of the TOP results in a double write. > >> write TIMESHEET_TOP; > > <snip> > >> write TIMESHEET; > >> It gets that double header. Again, everything else gets only the one, >> expected, >> header. Anyone have any ideas as to why the first one always prints twice? > > Because Perl is smarter than you're giving it credit for. :-P > > $ perldoc -f write > write FILEHANDLE > write EXPR > write > Top of form processing is handled automatically: if > there is insufficient room on the current page for > the formatted record, the page is advanced by > writing a form feed, a special top-of-page format is > used to format the new page header, and then the > record is written. > > Key phrase there: "top of form processing is handled automatically". > That is, you don't have to write the header your self. Perl does that > for you, on each new page the report is printed to. You just define > the format header. Let Perl decide when it needs to be written. > > Remove the write TIMESHEET_TOP line. > > Paul Lalli > >
Paul, Thanks for the help. However, doing what you said results in the output having only one header and the list output for each customer going under it. It doesn't create a header for each customer. Mathew -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/