程嶏清单14-17.txt

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

  #!/usr/bin/perl
  push (@INC,'pwd');
  use Coffee;
  $cup = new Coffee;
  print "\n Calling with no parameters: \n";
  $cup->makeCup;         # With no parameters
  print "\n Calling with one parameter: \n";
  $cup->makeCup('1');      # With one parameter
  print "\n Calling with two parameters: \n";
  $cup->makeCup(1,'2');     # With two parameters
  print "\n Calling with three parameters: \n";
  $cup->makeCup('1',3,'1');   # With all three parameters