Subroutine Perl

  1. Home
  2. Perl
  3. Subroutine
  4. Define local variable in subroutine by using my
sub printifOK
{
    my $localvalue = $value;
    if ($localvalue > 10 ) {
        print "Value is $value.\n";
    } else {
        print "Value is too small.\n";
    }
}
$value = 10;
printifOK;
$value = 12;
printifOK;