perl while 循环

发布时间：2020-12-15 23:53:11 所属栏目：大数据来源：网络整理

导读：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;
}
}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!