Wie kann ich Benutzereingaben, ohne zu warten, geben Sie in Perl?

Vom perlfaq8's Antwort auf Wie lese ich nur eine Taste, ohne zu warten, für ein return-Taste?
:

Controlling-input-buffering ist eine bemerkenswert-system-abhängige Angelegenheit. Auf vielen Systemen können Sie einfach das stty-Befehl, wie dargestellt in getc in perlfunc, aber wie Sie sehen, das ist schon immer Sie in Portabilität Tücken.

open(TTY, "+</dev/tty") or die "no tty: $!";
system "stty  cbreak </dev/tty >/dev/tty 2>&1";
$key = getc(TTY);       # perhaps this works
# OR ELSE
sysread(TTY, $key, 1);  # probably this does
system "stty -cbreak </dev/tty >/dev/tty 2>&1";

Den Term::ReadKey-Modul aus dem CPAN bietet eine einfach zu bedienende Schnittstelle, die sollte effizienter sein, als Beschuss aus auf stty für jeden Schlüssel. Es beinhaltet sogar eine eingeschränkte Unterstützung für Windows.

use Term::ReadKey;
ReadMode('cbreak');
$key = ReadKey(0);
ReadMode('normal');

Jedoch mit der code erfordert, dass Sie einen C-compiler und können es verwenden, um erstellen und installieren Sie ein CPAN-Modul. Hier ist eine Lösung mit der standard-POSIX-Modul, das bereits auf Ihrem system (vorausgesetzt, Ihr system unterstützt die POSIX).

use HotKey;
$key = readkey();

Ist hier der HotKey-Modul, das versteckt die etwas verwirrende Anrufe zu manipulieren, die POSIX-termios-Strukturen.

# HotKey.pm
package HotKey;

@ISA = qw(Exporter);
@EXPORT = qw(cbreak cooked readkey);

use strict;
use POSIX qw(:termios_h);
my ($term, $oterm, $echo, $noecho, $fd_stdin);

$fd_stdin = fileno(STDIN);
$term     = POSIX::Termios->new();
$term->getattr($fd_stdin);
$oterm     = $term->getlflag();

$echo     = ECHO | ECHOK | ICANON;
$noecho   = $oterm & ~$echo;

sub cbreak {
    $term->setlflag($noecho);  # ok, so i don't want echo either
    $term->setcc(VTIME, 1);
    $term->setattr($fd_stdin, TCSANOW);
}

sub cooked {
    $term->setlflag($oterm);
    $term->setcc(VTIME, 0);
    $term->setattr($fd_stdin, TCSANOW);
}

sub readkey {
    my $key = '';
    cbreak();
    sysread(STDIN, $key, 1);
    cooked();
    return $key;
}

END { cooked() }

1;