
FishMonger
Veteran
/ Moderator
Jul 31, 2011, 9:13 PM
Post #6 of 6
(2346 views)
|
Re: [Griff] Opening files with hash array values
[In reply to]
|
Can't Post
|
|
my %files = ( SUBHIST => $subscriberHist, SUBDUPE => $subscriberDupe, SUBCLN => $subscriberCln, SUBDISC => $subscriberDisc, ); my %file_handle; create_filehandles(\%files); sub create_filehandles { my $files = shift; foreach my $label ( keys %$files ) { open $file_handle{$label}, '<', $files{label} or die "can't open '$files{$label}' for reading $!"; } }
(This post was edited by FishMonger on Jul 31, 2011, 9:14 PM)
|