#!/usr/bin/perl
use strict;
sub sum{
my $z;
$z=$_[0]+$_[1];
return($z) ;
}
print sum(1,2);[@more@]
use strict;
sub sum{
my $z;
$z=$_[0]+$_[1];
return($z) ;
}
print sum(1,2);[@more@]
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/9907339/viewspace-1052928/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/9907339/viewspace-1052928/