程嶏清单3-6.txt

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

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