> > prints the result to the current filehandle (in a void context).
>
> The last one I think needs to be able to work on any filehandle via
> indirect object syntax, namely:
>
> format $FILE "<<<<<<<<<<< [[[[[[[[[[[[[[[ [[[[[[[[[[",
> $title, $text1, $text2;
I loathe the indirect object syntax.
There's always:
print $FILE format "<<<<<<<<<<< [[[[[[[[[[[[[[[ [[[[[[[[[[",
$title, $text1, $text2;
> Second, I think there still needs to be a way to store these formats
> somehow. One nice thing about current Perl formats is being able to
> declare them once at the top of the script (or module) and then calling
> write at different points throughout your script.
Easy. Put them in a subroutine:
sub format1 { format $template1, @data };
sub format2 { print STDERR format $template1, @data };
# etc.
Damian