程嶏清单6-5.txt

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

print  "how much is this dictionary?\n";
$price = <STDIN>;
chomp($price);
unless ($price > 65) {
     print "So I have enough money to buy the dictionary.";
}
else {
     print "So I don't have enough money to buy the dictionary.";
  }