程嶏清单3-5.txt

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

@array = (1..30);
print @array;
for ($i = 0; $i < 30; $i++) {
    $array$i] = $array[$i] + 10;      # 将每个元素加 10
}
print "@array\n";