Something like:
(edit: didn't really understand the question the first time, and am still not sure if I understand it.)sub total { my ($N_NUM) = @_; # expression is obviously pseudo-code if ($N_NUM is in database) { return 'FOUND'; } return 'NOT FOUND'; } my %dblist; $dblist{"$N_NUM"} = total($N_NUM); foreach my $item (sort keys %dblist) { # print table row print $item; print $dblist{"$item"}; }
In reply to Re^2: Sub routine processing issue, HELP!!!!!
by dazzle
in thread Sub routine processing issue, HELP!!!!!
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |