Почему я не могу завершить цикл while?

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

У меня 2 вопроса:

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.

Answer 2

Я изменил код:

use strict; 
use warnings; 

print "Will accept input until EOF"; 

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