程嶏清单6-9.txt

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

$x = 10;
until ($x <= 0) {
    print "x is : $x at present\n";
    $x--;
}