while(<STDIN>){
print “I saw $_”;
}
foreach(<STDIN>){
print “I saw $_”;
}
别看这两种方式，都是读取文件， 在WHILE 操作中，PERL 读入一行，将它赋予变量，然后再进入循环，再回到开头，读入下一行。
但在FOREACH 中，它在循环之前读取所有的输入，
while(<STDIN>){
print “I saw $_”;
}
foreach(<STDIN>){
print “I saw $_”;
}
别看这两种方式，都是读取文件， 在WHILE 操作中，PERL 读入一行，将它赋予变量，然后再进入循环，再回到开头，读入下一行。
但在FOREACH 中，它在循环之前读取所有的输入，