程嶏清单6-12.txt

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

for ($sold = 0; $sold < 10000; $sold += $purchase) {
    $available = 10000 - $sold;
    print "$available tickets are available.  How many would you like: ";
    $purchase = <STDIN>;
    chomp($purchase);
}