Subroutine Perl

  1. Home
  2. Perl
  3. Subroutine
  4. Is a parameter defined
sub addem
{
    ($value1, $value2) = @_;
    if (!defined($value2)) {
        $value2 = 1
    };
    print "$value1 + $value2 = " . ($value1 + $value2);
}
addem(2);