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
}
won't work. You need to do something like this:
while ( defined( my $line = $handles[ 3 ]->getline ) ) {
# do something with $line
}
or
frobnicate( $handles[ 3 ]->getline ) until $handles[ 3 ]->eof;
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
}
|