Linux:: Input ist eine Linuxinput-Ereignisschnittstelle.

SYNOPSE

Beispiel: 1 Steuerknüppel using Ereignis API

mein $js1 = Linux:: Input->new (/dev/input/event3);
während (1) {
während (meine @events = $js1->poll (0.01)) {
foreach (@event) {
}
}
}

Beispiel: 2 Steuerknüppel using Steuerknüppel API (unterschiedliche Ereigniszelle)

mein $js1 = Linux:: Input:: Joystick->new (/dev/input/js0);
mein $js2 = Linux:: Input:: Joystick->new (/dev/input/js1);
mein $selector = IO:: Select->new ();
$selector->add ($js1->fh);
$selector->add ($js2->fh);

während (mein $fh = $selector->can_read) {
mein @event;
wenn ($fh == $js1->fh) {
@event = $js1->poll ()
} elsif ($fh == $js2->fh) {
@event = $js2->poll ()
}
foreach (@event) {
# Arbeit
}
}

Beispiel 3: alle Eingabegeräte überwachen

Gebrauch Datei:: Basename qw (basename);
meine @inputs = Karte {„/dev/input/“. basename ($_)}
;

mein @dev;
mein $selector = IO:: Select->new ();
foreach (@inputs) {
mein $device = Linux:: Input->new ($_);
$selector->add ($device->fh);
@dev, $device drücken;
}

während (mein $fh = $selector->can_read) {
# Arbeit
}

Beispiel 4: Prüfung auf Ereignisse auf der Befehlszeile

# Informationen über, welche Ereigniswarteschlange gehört, welcher Einheit
Katze /proc/bus/input/devices

# überprüfen, dass Ereignisse hereinkommen
sudo evtest.pl /dev/input/event *