程嶏清单14-15.txt

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

#!/usr/bin/perl
push (@INC,'pwd');
use Coffee;
$cup = new Coffee;
print "\n -------------------- Initial values ------------ \n";
print "Coffee: $cup->{'Coffee'} \n";
print "Bean: $cup->{'Bean'} \n";
print "\n -------------------- Change Bean Type ---------- \n";
$cup->setBeanType('Mixed');
print "Bean Type is now $cup->{'Bean'} \n";
print "\n ------------------ Change Coffee Type ---------- \n";
$cup->setCoffeeType('Instant');
print "Type of coffee: $cup->{'Coffee'} \n";