16 lines
238 B
Perl
16 lines
238 B
Perl
|
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;
|