[boulder.pm] hash for multiple filehandles?

[Rob Nagler]

>   I have a very large file.  it has about 30 record types.  We currently
> use about 15 of those.  Right now, I open 15 filehandles, manucally,
> have 15 print statements, and 15 closes.  There has got to be a
> better way.

use Symbol ();
my($foo) = Symbol::gensym();
open($foo, ">hello") || die;
(print $foo "hello\n") || die;
close($foo) || die;

I believe Symbol is a standard perl library.

Rob