foreach控制结构

foreach 循环对列表或数组进行处理，能够逐项遍历列表中的值，依次迭代:

 

1.列表

#!/usr/bin/perl -w
foreach $rock(qw/bedbook slate lava/) {

print "One rock is $rock.\n";
}

2.数组

#!/usr/bin/perl -w
@rocks=qw/bedbook slate lava/;

foreach $rock(@rocks) {
print "One rock is $rock.\n";
}