perl - Perl で「Ctrl s」または「Ctrl 1」の入力を取得する方法

Question

CTRL実際、ユーザーが+1またはCTRL+DまたはCTRL+sまたは{キーボード ボタン}ESCをEND押すまで、ユーザーからの入力を取得しようとしています。F7

ユーザーが上記の指定されたボタンまたはそれらのボタンの組み合わせを押すたびに、perlコードにこれを知らせるにはどうすればよいですか?

Answer 1

    use strict;

    use Term::ReadKey;
    ReadMode 4;
    my $key = ReadKey(0);
    print "Get key ", ord($key), "\n";

    ReadMode 0; # Reset tty mode before exiting