perl last语句

来源:互联网 发布:.net select 获取数据 编辑:程序博客网 时间:2024/04/30 12:22
while (<STDIN>) {if (/END/) {##碰到END就退出last;}elsif (/fred/) {print ok; }}

0 0
原创粉丝点击