return 函数

[oracle@june2 perl]$ cat a2.pl 
sub get_value()
{ 
    my  $var;
          $var = 100;  
     return 200;
     return($var);
};
$var = get_value;
print "$var is $var
";
[oracle@june2 perl]$ perl a2.pl 
$var is 200


返回值是200



[oracle@june2 perl]$ cat a2.pl 
sub get_value()
{ 
    my  $var;
          $var = 100;  
     return($var);
};
$var = get_value;
print "$var is $var
";
[oracle@june2 perl]$ perl a2.pl 
$var is 100

返回值是100


return是结束正在运行的函数，并返回函数值  相当于=return + exit