Hi. If you see carefully the internal foreach loop contains $zip_file which comes from the external foreach loop.
'twould be a lot easier for him to see if you would indent
your code properly, e.g.,
foreach $zip_file (@zip_files){
open ZIPS, "unzip -l $zip_file|";
while(<ZIPS>){
push @text_files,$1 if /(\d+.out)$/;
}
foreach $text_file (@text_files){
open IN, "unzip -p $zip_file $text_file|";
my (@required_data) = process_file(\*IN);
}
}
Then you can actually see what's internal or external to what.
BTW, I really have to wonder what the purpose of posting
this is. It's too specific to serve a general purpose
and too general to serve a specific purpose. There are
thousands of people with thousands of snippets they could
post, but we'd be in trouble if they all did (you might
want to google "categorical imperative" for a more general
philosophical treatment of this problem). I'd stick with
things that might be helpful to a large number of people
and that are in some way novel.
Edit by tye, replace PRE with BLOCKQUOTE |