@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"; }