Mega Code Archive

 

Categories / Perl / Subroutine

 

Shift parameter

sub addem {     $value1 = shift;     $value2 = shift;     print "$value1 + $value2 = " . ($value1 + $value2) . "\n"; } $value = addem 2, 2; print $value;