On Wed, 17 Oct 2001, AMORE,JUAN (HP-Roseville,ex1) wrote:
> #!/usr/bin/perl -w
> my $function = shift @ARGV;
>
> if( $function =~ /add/ ) {
> $rtn = add( @ARGV );
> print "The sum is :$rtn";
> }
> elsif( $function =~ /multiply/ ) {
> $rtn = multiply( @ARGV );
> print "The product is :$rtn";
> }
>
> sub add {
> my @list = @_;
> my $sum = 0;
> $sum += $_ foreach (@list);
} # <= This was missing
>
> sub multiply {
> my @list = @_;
> my $prod = 1;
> $prod *= $_ foreach (@list);
> }
Dave Storrs
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
