Perl 改变数组元素值的方法

#!/usr/bin/perl
@array = (1..30);
print "@arrayn";
for($i=0; $i<=$#array; $i++){
	$array[$i] = $array[$i] + 10;
}
print "@arrayn";

用while循环对每个数组元素重新赋值：

#!/usr/bin/perl
@array = (1..30);
$count = 1;
print @array;

while($count <= @array){
	$array[$count - 1] += 10;
	$count++;
}
print @array;

#!/usr/bin/perl
@array = (1..30);
print "@arrayn";
@array_1 = (31..60);
foreach $item (@array,@array_1){
	$item += 10;
}
print "@arrayn";
print "@array_1n"