程嶏清单3-6.txt

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

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