程嶏清单6-11.txt

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

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