Just did this in a real app - nearly fell out of the chair when it worked.
require 5.8.0; ## in order to write NSANS format to a scalar
use strict;
foreach $ns_answer (@ns_answer) {
open(NSANS,">", \$ns_holder) or die("bla..\n");
write NSANS;
print OFILE $ns_holder;
close(NSANS);
}
format OFILE= ## for the disk file report
@<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+<<<<<<<<<<<<<
$adr, $ptr_answer
.
format NSANS= ## written to handle, then to scalar, then printed t
+o OFILE
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+<<<<<<<<<<<<<
$ns_answer
.
To clarify, the format NSANS was defined, but when used, the scalar $ns_holder is opened to write to. Once the write is done, the scalar $ns_holder contains the NSANS-formatted structure.
Then the scalar $ns_holder can be written ("print"ed) to another handle, in this case the format OFILE (the final output file).. so a format(ed) thing containing different scalars can get written to a previously defined and already open'ed file handle (two identical output formats, containing different scalars, written to a single output file handle).
That wasn't too clear - sorry - but I hope it's evident that you can write to a handle to a scalar.
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.