Mega Code Archive

 

Categories / Perl / Subroutine

 

Using shift(@_) to get value passed into a subroutine

$value = 10; printifOK ($value); sub printifOK {     my $internalvalue = shift(@_);     if ($internalvalue > 10 ) {         print "Value is $value.\n";     } else {         print "Value is too small.\n";     } }