in reply to Array of filehandles
You could try as well something like
my %handles = map { open my $fh, '<', $_; $fh => $_ } @files;
and further use keys %handles instead of @handles, and then the filename is $handles{$fh}.
my %handles = map { open my $fh, '<', $_; $fh => $_ } @files;
and further use keys %handles instead of @handles, and then the filename is $handles{$fh}.
|
---|
In Section
Seekers of Perl Wisdom