in reply to filehandle for close
Try this:
use IO::File; my %files; $files{"foo"} = IO::File->new(">xyz"); print { $files{"foo"} } "done\n"; $files{"foo"}->close;
|
---|
In Section
Seekers of Perl Wisdom
in reply to filehandle for close
Try this:
use IO::File; my %files; $files{"foo"} = IO::File->new(">xyz"); print { $files{"foo"} } "done\n"; $files{"foo"}->close;
|
---|