Help for this page

Select Code to Download

Select or download this

my @results1 = values %{imap->... 'SUBJECT', 'Subj1' ...};
my @results2 = values %{imap->... 'SUBJECT', 'Subj2' ...};
...
for my $h (@all_results){
   # Your code manipulating $h as before...
}

Select or download this

# sets $num_results to size of @all_results array.
my $num_results = @all_results;