Как мой Perl-код может поймать Ctrl + D?

Question

chomp($input = <>);

Как узнать, является ли $input Ctrl + D ?

Answer 1

Я думаю, в вашем вопросе ctrl-d равносильно EOF, как в UNIX?С некоторым файловым дескриптором в $fh:

while ( <$fh> ) {
  # use $_ here
}

Или, если вы настаиваете на явной ясности, чтобы объяснить, что Perl делает за кулисами:

while ( defined( $_ = <$fh> ) ) {
  # use $_ here
}

Или используйте другую переменную:

while ( defined( my $in = <$fh> ) ) {
  # use $in here
}

Answer 2

Вы знаете, что достигли eof, когда получили undef от <>, но в вашем случае chomp скрывает его.

Обычная идиома Perl для чтения до EOF выглядит следующим образом:

while(<>) {
  chomp;
  # do whatever you want with the line in $_
  # ...
}

Answer 3

Кажется, что все добавляют много к вопросу, который вы задали.

Проще говоря, для:

chomp($input = <>);

Вы можете сказать, что ^D была нажата с помощью:

print "EOF reached\n" if not defined $input;