Perl 改變數組元素值的方法

標籤：

用for迴圈對每個數組元素重新賦值：

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

用while迴圈對每個數組元素重新賦值：

#!/usr/bin/perl@array = (1..30);$count = 1;print @array;while($count <= @array){$array[$count - 1] += 10;$count++;}print @array;

用foreach迴圈對每個數組元素重新賦值：（foreach可以多多個數組進行操作）

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

Perl 改變數組元素值的方法