PERL Format - format name versus filehandle

[dneid]

Hey, All,
Well, I am stumped. I am trying to get a set of formats working in a script. I want to have a header (_TOP) and then the body. Well, I can not even get the header working correctly.

Here is what I started with(with lots of calculation missing):

open (TMP_OUT_FILE, ">optimize_report.tmp") || die("File is not open");

write;

format TMP_FILE_OUT =
Simulation Measurement(s) data:

| SIM1 Measurement | SIM2 Measurement | Difference |
+------------------+------------------+--------------+
.

This writes to STDOUT just fine. Now, when I change write to write to the filehandle (write(TMP_OUT_FILE), I get the following error:
Undefined format "TMP_OUT_FILE" called at ./opt_capChar_ratio line 158

I have tried several different things including changing the format name to TMP_OUT_FILE_TOP. I tried setting $~ = TMP_OUT_FILE_TOP and $~ = TMP_OUT_FILE. This one has really got me stumped!!


Any help with this would be appreciated.

Thanks,
Dale

Perl Version Info: This is perl, v5.8.5 built for x86_64-linux-thread-multi

 

[travs69]

print TMP_FILE_OUT "Blah BLah BLah Blah\n";



~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;

 

[KevinADC]

use the select function to select the filehandle:

(all your code here)
select(TMP_OUT_FILE);
write;
select(something else if need be);

------------------------------------------
- Kevin, perl coder unexceptional!

 

[MillerH]

Kevin's solution of selecting the file handle before calling write is what you need to fix the bug.

However, I would advise you and anyone to use the Perl6::Form module instead of the depreciated format construct.

http://search.cpan.org/search?query=Perl6::Form

- Miller