程嶏清单6-2.txt

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

 print  " how much is this dictionary?";
 $price = <STDIN>;
 chomp($price);
 if ($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.";
 }