为什么我不能在循环时终止这个？

Question

我做了以下脚本:

print "Will accept input until EOF";  

while(defined($line = <STDIN>)){  
    print "Input was $line \n";  
    if(chomp(@line) eq "end"){  
        print "aha\n";  
        last;  
    }  
}  

我有两个问题:

1. 为什么当我输入end控制台我不能看到aha并break从环路(last是相等的break权)？
2. 什么是EOF阻止while循环的关键组合？我以为它在ctrl+D,Windows但它不起作用.

Answer 1

你的剧本错过了use strict; use warnings;.否则,你会注意到$line不是@line.

此外,chomp不返回更改的字符串,它会在适当的位置更改它并返回已删除的字符数.

在MSwin中,Ctrl+ZEnter用作EOF.

更新:修正了EOF.