El Linux:: Insumo es una interface de acontecimiento de insumo de Linux.

SINOPSIS

Ejemplo: 1 palanca de mando usando API de acontecimiento

mi $js1 = Linux:: Insumo-> nuevo (/dev/input/event3);
mientras (1) {
mientras (mi @events = $js1-> encuesta (0.01)) {
foreach (@event) {
}
}
}

Ejemplo: 2 palancas de mando usando API de palanca de mando (estructura de acontecimiento diferente)

mi $js1 = Linux:: Insumo:: Palanca de mando-> nuevo (/dev/input/js0);
mi $js2 = Linux:: Insumo:: Palanca de mando-> nuevo (/dev/input/js1);
mi $selector = IO:: Escogido-> nuevo ();
El $selector-> añade ($js1-> fh);
El $selector-> añade ($js2-> fh);

mientras (mi $fh = $selector-> can_read) {
mi @event;
si ($fh == $js1-> fh) {
@event = $js1-> encuesta ()
} elsif ($fh == $js2-> fh) {
@event = $js2-> encuesta ()
}
foreach (@event) {
# trabajo
}
}

Ejemplo 3: supervise todos los dispositivos de insumo

use File::Basename qw (basename);
mis @inputs = trazan un mapa {"/dev/input /". basename ($ _)}
;

mi @dev;
mi $selector = IO:: Escogido-> nuevo ();
foreach (@inputs) {
mi $device = Linux:: Insumo-> nuevo ($ _);
El $selector-> añade ($device-> fh);
empuje @dev, $device;
}

mientras (mi $fh = $selector-> can_read) {
# trabajo
}

Ejemplo 4: pruebas para acontecimientos en la línea de orden

# la información en que cola de acontecimiento pertenece a que dispositivo
gato/proc/bus/input/devices

# verifique que los acontecimientos entran
sudo evtest.pl/dev/input/event*