Re: Opening Multiple FileHandles w/ Simpler Code

You can open them in a loop or map, filling an array or hash with references to the handles.

my @handles = map {FileHandle->new("> $_")} @filenames;
$handles[3]->print( 'Message to the fourth handle.', $/);
$_->print('Message to all handles', $/) for @handles;
[download]

After Compline,
Zaxo

Comment on Re: Opening Multiple FileHandles w/ Simpler Code Download Code

Replies are listed 'Best First'.
Re^2: Opening Multiple FileHandles w/ Simpler Code by Anonymous Monk on Aug 09, 2005 at 19:10 UTC
Absolutely Brilliant! Perfection! Thanks!	[reply]
Re^3: Opening Multiple FileHandles w/ Simpler Code by tlm (Prior) on Aug 10, 2005 at 01:50 UTC
Just keep in mind that certain constructs, such as `< >` do not accept lexical handles unless they are in "simple" variables. E.g. `while ( <$handles[ 3 ]> ) { # do something with last line read }` [download] won't work. You need to do something like this: `while ( defined( my $line = $handles[ 3 ]->getline ) ) { # do something with $line }` [download] or `frobnicate( $handles[ 3 ]->getline ) until $handles[ 3 ]->eof;` [download] or, if you really prefer to avoid invoking methods on then handle, the you can do this `my $tmp = $handles[ 3 ]; while ( <$tmp> ) { # go crazy }` [download] the lowliest monk	[reply] [d/l] [select]