Mark Goland <[EMAIL PROTECTED]> wrote:
> Hi all,
>
> I am trying to read from file handles in a loop. What I want to do is add a
> string to a file handle. Here is an example of what I am tryin to do.
> open FH1,"file";
> open FH2,"otherfile";
> ...
> ...
> foreach $Val (@F_handles){
> @LINES=<FH$Val> # add $Val to handl name
> }
>
> is it possible ??
>
Not like that :)
You can look up the symref ahead of time:
for my $ix (@F_handles) {
no strict 'refs';
local *FH = *{"FH$ix"};
my @slurp = <FH>;
...
}
Or pass it straight to readline():
for my $ix (@F_handles) {
no strict 'refs';
my @slurp = readline "FH$ix";
...
}
But probably the best thing would be to put lexically
scoped filehandles into an array.
my @files = map {
open my $fh, $_ or die "open: $_: $!";
$fh;
} @paths;
for my $fh (@files) {
my @slurp = <$fh>;
...
}
The fact that "open FH, ..." is implemented with a symref
and a global variable is pretty well hidden, for the most
part, but as soon as you start passing filehandles around
or putting them in data structures, you need to switch to
real references.
HTH
--
Steve
perldoc -qa.j | perl -lpe '($_)=m("(.*)")'
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
