程嶏清单6-10.txt

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

$count = 1;
while ($count <= @array) 
{
   print ("element $count: $array[$count-1]\n");
   $count++;
}