each的用法及while 的使用方法

最新推荐文章于 2020-12-24 02:53:11 发布

原创最新推荐文章于 2020-12-24 02:53:11 发布 · 586 阅读

0 ·

CC 4.0 BY-SA版权

Perl 专栏收录该内容

15 篇文章

订阅专栏

本文提供了一个使用Perl语言遍历数组元素的示例代码，通过两种不同的方法展示了如何访问数组中的每个元素。

#!/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";
	}