函数和调用 II

如果需要传入2个参数，函数里需要写成"$_" (传入一个参数时可以写成"$_"或"$")

 

==>脚本

#!/usr/bin/perl -w
#
# sum_test.pl
use strict;

my ($sum,
  $var1,
  $var2);

sub sum_f($_)
{
        my $v1 = shift;
        my $v2 = shift;
        my $sum1=$v1+$v2;
        return $sum1;
}

$var1 = 10;
$var2 = 20;
$sum=sum_f($var1,$var2);
print "SUM => $sum/n";

 

==>执行结果

C:/temp1>perl sum_test.pl
SUM => 30