大家先看一个例子： [code lang="perl"] #!/usr/bin/perl use warnings; @array = qw(a b c d); foreach (@array) { ...