Linux:: Ввод является интерфейсом случая ввода Linux.

РЕЗЮМЕ

Пример: 1 джойстик, используя случай API

мой $js1 = Linux:: Ввод-> новый (/dev/input/event3);
в то время как (1) {
в то время как (мой @events = $js1-> опрос (0.01)) {
foreach (@event) {
}
}
}

Пример: 2 джойстика, используя джойстик API (различная структура случая)

мой $js1 = Linux:: Ввод:: Джойстик-> новый (/dev/input/js0);
мой $js2 = Linux:: Ввод:: Джойстик-> новый (/dev/input/js1);
мой $selector = IO:: Избранный-> новый ();
$selector-> добавляет ($js1-> fh);
$selector-> добавляет ($js2-> fh);

в то время как (мой $fh = $selector-> can_read) {
мой @event;
если ($fh == $js1-> fh) {
@event = $js1-> опрос ()
} elsif ($fh == $js2-> fh) {
@event = $js2-> опрос ()
}
foreach (@event) {
# работа
}
}

Пример 3: контролируйте все устройства ввода данных

используйте File::Basename потенциальную яму (basename);
мои @inputs = отображают {"/dev/input /". basename ($ _)}
;

мой @dev;
мой $selector = IO:: Избранный-> новый ();
foreach (@inputs) {
мой $device = Linux:: Ввод-> новый ($ _);
$selector-> добавляет ($device-> fh);
поместите @dev, $device;
}

в то время как (мой $fh = $selector-> can_read) {
# работа
}

Пример 4: тестирование на события на командной строке

# информация на том, какая очередь случая принадлежит какой устройство
кошка/proc/bus/input/devices

# проверьте, что события входят
sudo evtest.pl/dev/input/event*