Less C-ish (and assuming you still want to avoid the zero concern):
my $answer = 1;
for my $elem ( @array ) {
$answer *= $elem
if $elem;
}
a
Andy Bach, Sys. Mangler
Internet: [EMAIL PROTECTED]
VOICE: (608) 261-5738 FAX 264-5030
"We are either doing something, or we are not. 'Talking about' is a
subset of 'not'." -- Mike Sphar in alt.sysadmin.recovery
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
