Mega Code Archive

 

Categories / Perl / Subroutine

 

Using local

sub printifOK {     local $localvalue = $value;     if ($localvalue > 10 ) {         print "Value is $value.\n";     } else {         print "Value is too small.\n";     } } $value = 10; printifOK; $value = 12; printifOK;