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;
}
}
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;
}
}