while (<STDIN>){ ###读取标准输入 if (/END/) { last; } elsif (/fred/) { print 1; } elsif (/red/) { print 2; } } while (<>){ ###读取文件输入 if (/END/) { last; } elsif (/fred/) { print 1; } elsif (/red/) { print 2; } }