程嶏清单6-5.txt

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

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