程嶏清单14-16.txt

< linux网络编程工具>>配套源码

sub makeCup {
  my ($class, $cream, $sugar, $dope) = @_;
  print "\n================================== \n"; 
  print "Making a cup \n";
  print "Add cream \n" if ($cream);
  print "Add $sugar sugar cubes\n" if ($sugar);
  print "Making some really addictive coffee ;-} \n" if ($dope);
  print "================================== \n";
}