程嶏清单6-7.txt

< linux网络编程工具>>配套源码

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