程嶏清单6-2.txt

来自「< linux网络编程工具>>配套源码」· 文本 代码 · 共 10 行

 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.";
 }