> >       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

Reply via email to