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;
}
}
perl while 循环
最新推荐文章于 2023-08-05 13:01:04 发布