perl定义函数
#定义一个sub子程序（函数）sub hello{
print "helloworld";
}
hello;#调用函数
sub args{
if(@_!=1){
print "没有参数";
}
}
args;
$n = &args2(10,15);
sub args2{
print $_;#第一个参数
print $_;#第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]