| Linux :: Á¶À̽ºÆ½ Linux :: Á¶À̽ºÆ½Àº Linux ±â¹Ý ¿î¿µ üÁ¦¿¡¼ Á¶À̽ºÆ½ ÀåÄ¡¿¡ ¾×¼¼½ºÇϱâÀ§ÇÑ °´Ã¼ ÁöÇâÀû ÀÎ ¼ø¼öÇÑ Perl APIÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
Linux :: Á¶À̽ºÆ½ ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~bwatson/Linux-Joystick-0.0.1/Joystick.pm
Linux :: Á¶À̽ºÆ½ ű×
Linux :: Á¶À̽ºÆ½ ¼³¸í
Linux :: Á¶À̽ºÆ½Àº Linux ±â¹Ý ¿î¿µ üÁ¦¿¡¼ Á¶À̽ºÆ½ ÀåÄ¡¿¡ ¾×¼¼½ºÇϱâÀ§ÇÑ °´Ã¼ ÁöÇâÀû ÀÎ ¼ø¼öÇÑ Perl APIÀÔ´Ï´Ù. Linux :: Á¶À̽ºÆ½Àº Linux ±â¹Ý ¿î¿µ üÁ¦¿¡¼ Á¶À̽ºÆ½ ÀåÄ¡¿¡ ¾×¼¼½ºÇϱâÀ§ÇÑ °´Ã¼ ÁöÇâÀû ÀÎ ¼ø¼öÇÑ Perl APIÀÔ´Ï´Ù. Linux :: Á¶À̽ºÆ½ ¸ðµâÀº Â÷´Ü ¶Ç´Â ºñ Â÷´Ü I / O¸¦ »ç¿ëÇÒ ¼ö ÀÖÀ¸¸ç °¢ Ãà º¯°æ ¶Ç´Â ´ÜÃ߸¦ ³ªÅ¸³À´Ï´Ù. Linux :: Joystick :: Event object.usageif Á¶À̽ºÆ½ À̺¥Æ®¿¡ ÀÇÇØ ÀÀ¿ë ÇÁ·Î±×·¥À» ¿øÇÕ´Ï´Ù. Â÷´Ü I / O ¹× À̺¥Æ® ·çÇÁ »ç¿ë : Linux :: Á¶À̽ºÆ½À» »ç¿ëÇϽʽÿÀ. My $ JS = New Linux :: Á¶À̽ºÆ½; ³» $ À̺¥Æ®; "Á¶À̽ºÆ½ÀÌ ÀÖ½À´Ï´Ù"¸¦ ÀμâÇϽʽÿÀ. $ JS-> buttonCount (). "¹öÆ°". "±×¸®°í " . $ js-> axiscount (). "axes.n"; # Â÷´Ü Àбâ : ($ À̺¥Æ® = $ JS-> NEXTEVENT) {Àμâ "À̺¥Æ® À¯Çü :". $ À̺¥Æ® -> À¯Çü. ","; if ($ À̺¥Æ® -> isButton) {print "¹öÆ°". $ À̺¥Æ® -> ¹öÆ°; if ($ À̺¥Æ® -> buttondown) {print "´·¶½À´Ï´Ù."; } else {print "¸±¸®½º"; }} ELSIF ($ Event-> Isaxis) {Àμâ "Ãà". $ À̺¥Æ® -> Ãà. ", °ª " . $ À̺¥Æ® -> Ãà °ª. ","; $ À̺¥Æ® -> Stickup ÀÎ °æ¿ì "UP"Àμâ; $ À̺¥Æ® -> ½ºÆ½ ´Ù¿î ÀÎ °æ¿ì "´Ù¿î"Àμâ; $ À̺¥Æ® -> StickLeft ÀÎ °æ¿ì "¿ÞÂÊ"Àμâ; $ À̺¥Æ® -> StickRight ÀÎ °æ¿ì "¿À¸¥ÂÊ"Àμâ; } else {#Àº °áÄÚ ÀμâµÇÁö ¾Ê¾Æ¾ßÇÕ´Ï´Ù "¾Ë ¼ö ¾øÀ½ À̺¥Æ®". $ À̺¥Æ® -> hexdump; } "n"À» ÀμâÇϽʽÿÀ; } # while while while while while while while while wheed (undefined) À̺¥Æ®°¡ ÀÖ½À´Ï´Ù. DIE "¿À·ù Á¶À̽ºÆ½À» Àд ¿À·ù :". $ js-> errorString; ºñ Â÷´Ü I / O¸¦ »ç¿ëÇÒ ¼öµµ ÀÖ½À´Ï´Ù.ÀÌ °æ¿ì nexef´Â undef¸¦ ¹Ýȯ ÇÒ ¼ö ÀÖ½À´Ï´Ù. ³» $ js = Linux :: Á¶À̽ºÆ½ -> »õ (nonblocking => 1) ); #ÀÌ ´ë½Å 2 ¹ø° Á¶À̽ºÆ½À» ¿ ¶§ ÀÌ°ÍÀ» »ç¿ëÇϽʽÿÀ. # MY $ JS = Linux :: Á¶À̽ºÆ½ -> »õ (ÀåÄ¡ => 1, nonblocking => 1); while (1) {my $ À̺¥Æ® = $ JS-> NextEvent; if ($ À̺¥Æ®) {print "Á¶À̽ºÆ½ eventn"; # À̺¥Æ®¸¦ ó¸®ÇϽʽÿÀ} # ¿©±â¿¡¼ ´Ù¸¥ ó¸® (±×·¡ÇÈ, »ç¿îµå, I / O, °è»ê)} ÀåÄ¡¸¦ ´Ù½Ã ¿Áö ¾Ê°í Â÷´Ü ¹× ºñ Â÷´Ü I / O »çÀ̸¦ Àüȯ ÇÒ ¼ö ÀÖ½À´Ï´Ù (¾Æ·¡ SetNonbLocking () ¸Þ¼µå ÂüÁ¶) ~ÀÇ ¿ä±¸ »çÇ× : ¡¤ Perl.
Linux :: Á¶À̽ºÆ½ °ü·Ã ¼ÒÇÁÆ®¿þ¾î