Perl ---- subroutine exercises

 #!/usr/bin/perl -w

    
 #创建子程序检查$values的值
    
 # sub printOK
    
 # {
    
 # if($values>10){
    
 # print "Values is $values.\n";
    
 # }
    
 # else {
    
 # print "Value is too small.\n";
    
 # }
    
 # }
    
 # $values=15;
    
 # printOK;
    
 #在默认情况下Perl变量在全局范围内有效，因此可以在子程序printOK内部变量引用变量$values。变量的范围指可以引用变量的程序代码部分。
    
 #使用关键字local和my关键字来创建变量，这种变量的范围完全限于类似printOK这样的子程序内部。这种局部变量的范围完全限于子程序，这意味着
    
 #它们可以和全局变量具有相同的名称，但根本不会影响全局变量的值。
    
 # sub printOK
    
 # {
    
 # my $localvalues=$values;
    
 # if($localvalues>10){
    
 # print "Values is $values.\n";
    
 # }