while(<STDIN>){
print “I saw $_”;
}

foreach(<STDIN>){
print “I saw $_”;
}

 

别看这两种方式,都是读取文件, 在WHILE 操作中,PERL 读入一行,将它赋予变量,然后再进入循环,再回到开头,读入下一行。

但在FOREACH 中,它在循环之前读取所有的输入,