Subroutine Perl

  1. Home
  2. Perl
  3. Subroutine
  4. Shift parameter
sub addem
{
    $value1 = shift;
    $value2 = shift;
    print "$value1 + $value2 = " . ($value1 + $value2) . "\n";
}
$value = addem 2, 2;
print $value;