Mega Code Archive

 

Categories / Perl / Subroutine

 

Is a parameter defined

sub addem {     ($value1, $value2) = @_;     if (!defined($value2)) {         $value2 = 1     };     print "$value1 + $value2 = " . ($value1 + $value2); } addem(2);