Linux : : L'entrée est une surface adjacente d'événement d'entrée de Linux.

SYNTHÈSE

Exemple : 1 manche using l'événement api

mon $js1 = Linux : : Input->new (/dev/input/event3) ;
tandis que (1) {
tandis que (mes @events = $js1->poll (0.01)) {
foreach (@event) {
}
}
}

Exemple : 2 manches using le manche api (structure différente d'événement)

mon $js1 = Linux : : Entrée : : Joystick->new (/dev/input/js0) ;
mon $js2 = Linux : : Entrée : : Joystick->new (/dev/input/js1) ;
mon $selector = E/S : : Select->new () ;
$selector->add ($js1->fh) ;
$selector->add ($js2->fh) ;

tandis que (mon $fh = $selector->can_read) {
mon @event ;
si (== $js1->fh de $fh) {
@event = $js1->poll ()
} elsif (== $js2->fh de $fh) {
@event = $js2->poll ()
}
foreach (@event) {
# travail
}
}

Exemple 3 : surveiller tous les périphériques d'entrée

dossier d'utilisation : : Qw de nom de base de fichier (nom de base de fichier) ;
mes @inputs = carte {« /dev/input/ ». nom de base de fichier ($_)}
;

mon @dev ;
mon $selector = E/S : : Select->new () ;
foreach (@inputs) {
mon $device = Linux : : Input->new ($_) ;
$selector->add ($device->fh) ;
pousser le @dev, $device ;
}

tandis que (mon $fh = $selector->can_read) {
# travail
}

Exemple 4 : déterminer des événements sur la ligne commande

# l'information sur quelle file d'attente d'événement appartient à quel dispositif
chat /proc/bus/input/devices

# vérifier que les événements entrent
sudo evtest.pl /dev/input/event *