程嶏清单3-5.txt

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

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