while (defined (my $line=<STDIN>) ){
print "I saw $line\n";
}
while 单行输出,即输即出。
foreach (my @a=<STDIN>){
print "It was $_ that i saw!\n";
}
foreach 可做存储处理,多行输出。
}
while (defined (my $line=<STDIN>) ){
print "I saw $line\n";
}
while 单行输出,即输即出。
foreach (my @a=<STDIN>){
print "It was $_ that i saw!\n";
}
foreach 可做存储处理,多行输出。
}