学习perl中的基础。先来一个例子吧#!/usr/bin/perluse warnings;@array = qw(a b c d);foreach (@array) 例子的作用就是定义一个数组并把其中的元素打印出来，这里需要注意的是foreach循环部分，foreach循环的标准格式应该是：foreach $element (@array)其中数组@array将其中的元素依次赋