#!/user/bin/perl
my @rocks = qw / bedrock salate rubble granite / ;
while (my( $index,$value)= each @rocks){
print "$index: $value \n";
}
print "哈哈:\n";
#两种相同的写法
foreach $index (0 .. $#rocks){
print "$index:$rocks[$index] \n";
}
each的用法及while 的使用方法
最新推荐文章于 2021-05-28 23:41:02 发布