closing multiple filehandles with one command

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

I would like to close multiple open files handles.
Instead of:

$OUT1->close;
$OUT2->close;
$OUT3->close;
$OUT4->close;
$OUT5->close;
[download]

Is there is a simple 1 line of code or command to simply close them all at the same time?
Thanks.

Comment on closing multiple filehandles with one command Download Code

Replies are listed 'Best First'.
Re: closing multiple filehandles with one command by merlyn (Sage) on Aug 09, 2005 at 15:43 UTC
Would this qualify? `$_->close for $OUT1, $OUT2, $OUT3, $OUT4, $OUT5;` [download] -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply] [d/l]
Re^2: closing multiple filehandles with one command by phaylon (Curate) on Aug 09, 2005 at 16:01 UTC
As addition, because I see many numbered filehandles in some coworkers code: Or, if they're saved in a hash (which is imo the better way if you have no fixed or a large number of handles): `# untested $hash{ $_ }->close for keys %hash;` [download] Ordinary morality is for ordinary people. -- Aleister Crowley	[reply] [d/l]
Re^3: closing multiple filehandles with one command by merlyn (Sage) on Aug 09, 2005 at 16:08 UTC
`$hash{ $_ }->close for keys %hash;` [download] Or simpler to ask Perl for what you really want: `$_->close for values %hash;` [download] -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply] [d/l] [select]
Re^4: closing multiple filehandles with one command by phaylon (Curate) on Aug 09, 2005 at 16:12 UTC
A reply falls below the community's threshold of quality. You may see it by logging in.
Re^2: closing multiple filehandles with one command by Anonymous Monk on Aug 09, 2005 at 16:25 UTC
excellent.... I don't know why I didn' think of that. Guess that's why you are the wizard and... I am still learning. Thanks!	[reply]