程嶏清单3-7.txt

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

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