程嶏清单3-7.txt

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

@array = (1..30);
print @array;
foreach $item (@array) {
    $item += 10;      # 将每个元素加 10
}
print "@array\n";