@fred = qw/bedrock slate lava/; print $fred[0]; print $fred[-1];#最後一個元素,從數組尾端開始計數, $number = 2.7135; print $fred[$number-1];#結果同$fred[1] print $fred[$#fred];# $#fred最後一個元素下標 @quarry = (@fred, "crushed rock");#數組@fred會被展開成@quarry中的元素; @quarry2 = qw(@fred crushedrock);#@quarry2包含兩個元素
pop(@array):取出數組中最後一個元素,並將其做爲返回值; 數組
push (@array ,$var): spa
unshift (@array ,$var):
.net
foreach $rock(@rocks){ print "I can count to $_!\n"; $rock = "\t@rock"; $rock.="\n"; }
use 5.012; my @rocks = qw/ bedrock slate rubble granitt /; while(my($index,$value)= each @rocks){ say "$index: $value"; }