程嶏清单6-8.txt

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

$tickets_sold = 600;
while ($tickets_sold < 1000) {
    $available = 1000 - $tickets_sold;
    print "$available tickets are available. \nHow many would you like: ";
    $purchase = <STDIN>;
    chomp($purchase);
    $tickets_sold += $purchase;
}
print "This show is sold out, please come back later.\n";