PERL语言入门:第四章:子程序(函数)

写一个简单的函数。 用于计算两个数的和。

  1 #!/usr/bin/perl -w
  2 #定义一个子程序， 用于两数相加
  3 sub SUM(){
  4         my $sum=$_[0]+$_[1];
  5         print "$_[0] + $_[1] = $sum\n";
  6 }
  7 
  8 while(1){
  9         chomp(@SUMDATA=<STDIN>);
 10         #每行输入一个数字， 并按ctrl+D结束输入
 11         &SUM(@SUMDATA);
 12 }
~                                                                               
~                                                                               
~                                                                               
~