一直以为each只能作用于hash,其实也能用于数组,分别取下标及其对应的值。
my @array = (0, 1, 2, 3, 4, 5, 6);while (my ($i, $v) = each @array) { print "$i: $v", "\n";}
==
posted on 2012-02-23 11:13 perlman 阅读(233) 评论(1) 编辑 收藏 举报