perl定义函数

#定义一个sub子程序（函数）
sub hello{
    print "helloworld";
    
  }
  hello;#调用函数
  
  
sub args{
   if(@_!=1){
     
      print "没有参数";
     }
  }
args;
$n = &args2(10,15);
sub args2{
    print $_[0];#第一个参数
    print $_[1];#第2个参数
    print "result \n";
  }
  n;

#由于所有的被调用的子程序都要返回值，因此使用特殊的返回值语法在大多数情况下是一种浪费。因此Larry 将之简化了。
#当Perl 遍历此子程序时，将会计算每一步的值。此子程序中最后计算的值将被返回。
#例如，下面的子程序：
sub returnVar{
  
    $hello="hello+把最后一个计算的值返回?"; #返回值。
  }
  
  
print returnVar; #"hello+把最后一个计算的值返

sub returnVar2{
    $test="test"
   # return "\n $test";#出错；不能用return??
  }
 print returnVar2;
 
 
  

评论

1 楼 wangacidlemon 2009-07-05  

你的程序有问题，忘记打上一个分号了“；”，所以return 不会执行。

不过建议你把程序改一下：
#!/usr/bin/perl -w
use strict;
sub returnVar2{ 
my $test="test"; 
return "\n $test";
} 
print returnVar2;