ÀåÄ¡ :: Audiotron.

ÀåÄ¡ :: AudiotronÀº Voyetra Turtle BeachÀÇ AudiotronÀÇ ÃֽŠÆß¿þ¾î¿¡ Æ÷ÇÔ µÈ API¿¡ µ¿Á¡À» Á¦°øÇÕ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

ÀåÄ¡ :: Audiotron. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Dave Crawford
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~dcrawford/Device-Audiotron-1.02/Audiotron.pm

ÀåÄ¡ :: Audiotron. ű×


ÀåÄ¡ :: Audiotron. ¼³¸í

ÀåÄ¡ :: AudiotronÀº Voyetra Turtle BeachÀÇ AudiotronÀÇ ÃֽŠÆß¿þ¾î¿¡ Æ÷ÇÔ µÈ API¿¡ µ¿Á¡À» Á¦°øÇÕ´Ï´Ù. ÀåÄ¡ :: AudiotronÀº Voyetra Turtle BeachÀÇ Audiotron.Synopsisuse Device :: Audiotron; $ = »õ ÀåÄ¡ :: Audiotron ( "Audiotron IP ÁÖ¼Ò", "»ç¿ëÀÚ À̸§", "¾ÏÈ£"); (! $ at) {die "audiotron °´Ã¼°¡ ÃʱâÈ­ÇÏÁö ¸øÇß½À´Ï´Ù.";} My ($ ref_status, $ ref_shares, $ ref_hosts) = $ at-> globalinfo (); MY $ Firmware_Version = $ ref_status -> { "¹öÀü"ÀåÄ¡ :: AudiotronÀº Voyetra Turtle BeachÀÇ AudiotronÀÇ ÃֽŠÆß¿þ¾î¿¡ Æ÷ÇÔ µÈ API¿¡ µ¿Á¡À» Á¦°øÇÕ´Ï´Ù. HTTP : / /www.turtlebeach.com/site/products/audiotron/api/dl_api.aspÀÌ ¸ðµâÀ» ±¸ÇöÇÏ·Á°íÇÕ´Ï´Ù. Audiotron °´Ã¼ÀÇ »ç¿ë °¡´ÉÇÑ ¹æ¹ý°ú °¢°¢ÀÇ »ç¿ë ¿¹°¡ ¾Æ·¡¿¡ ³ª¿­µÇ¾î ÀÖ½À´Ï´Ù. ³×ÀÌƼºê API È£ÃâÀº VoyetraÀÇ API ¹®¼­¸¦ ÂüÁ¶ ÇÒ ¼ö ÀÖµµ·Ï °¢ ¸Þ¼ÒµåÀÇ °¢ ¸Þ¼Òµå ¾Æ·¡¿¡ °ýÈ£·Î ³ª¿­µË´Ï´Ù. getInfo (type, , ) ¸í·É ¿äû¿¡¼­ °á°ú°¡ Æ÷ÇÔ µÈ ¹®ÀÚ¿­À» ¹ÝȯÇÕ´Ï´Ù. $ type = "Àü¿ª"; $ info = $ at-> getinfo ($ type); ¶Ç´Â $ type = "¾ÆƼ½ºÆ®"; $ count = 4; $ criteria = "staind"; $ info = $ at-> getinfo ($ type, $ count, $ criteria); QFile (À¯Çü, ±âÁØ) ¸í·É ¿äû¿¡¼­ °á°ú°¡ Æ÷ÇÔ µÈ ¹®ÀÚ¿­À» ¹ÝȯÇÕ´Ï´Ù. $ type = "file"; $ file = q | \ lithiummp3bushdeconstructedcomedown.mp3 |; $ cmd_result = $ at-> qfile ($ type, $ file); addFile (full_file_name) ¸í·É ¿äû¿¡¼­ °á°ú°¡ Æ÷ÇÔ µÈ ¹®ÀÚ¿­À» ¹ÝȯÇÕ´Ï´Ù. $ file = q | \ cobaltmp3new_song.mp3 |; $ cmd_result = $ at-> addfile ($ file); cmd (command, ) ¸í·É ¿äû¿¡¼­ °á°ú°¡ Æ÷ÇÔ µÈ ¹®ÀÚ¿­À» ¹ÝȯÇÕ´Ï´Ù. $ cmd_name = "play"; $ cmd_result = $ at-> cmd ($ cmd_name); ¶Ç´Â $ cmd_name = "goto"; $ cmd_arg = "18"; $ cmd_result = $ at-> cmd ($ cmd_name, $ cmd_arg); getStatus () ´Â audiotronÀÌ ¹Ýȯ ÇÑ 'Çʵå'À̸§°ú µ¿ÀÏÇÑ ¿ä¼Ò À̸§À» Æ÷ÇÔÇÏ´Â Çؽø¦ ¹ÝȯÇÕ´Ï´Ù. % status = $ at-> getStatus (); $ status { 'State'}¸¦ ÀμâÇϽʽÿÀ. globalInfo () ÇؽÃ, ¹è¿­ ¹× Çؽà ¹è¿­¿¡ ´ëÇÑ ÂüÁ¶¸¦ ¹ÝȯÇÕ´Ï´Ù. ÀÌ°ÍÀº ´Ü¼øÈ÷ "±Û·Î¹ú"À» »ç¿ëÇÏ¿© GetInfo¿¡ ´ëÇÑ È£ÃâÀÌÁö¸¸ °á°ú¸¦ Àü´ÞÇÏÁö¸¸ °á°ú¸¦ »çÀü ±¸¹®À¸·Î Àü´ÞÇϵµ·Ï »ç¿ëÀÚ Á¤ÀǵǾú½À´Ï´Ù. ($ ref_status, $ ref_shares, $ ref_hosts) = $ at-> globalinfo (); À§ÀÇ ¿¹¿¡¼­ '$ ref_status'´Â °á°úÀÇ "»óÅÂ"ºÎºÐ¿¡¼­ ¹Ýȯ µÈ 'Çʵå'À̸§°ú µ¿µîÇÑ ¿ä¼Ò À̸§À» Æ÷ÇÔÇÏ´Â Çؽÿ¡ ´ëÇÑ ÂüÁ¶ÀÔ´Ï´Ù. ¿¹¸¦ µé¾î, Æß¿þ¾îÀÇ ¹öÀü ¹øÈ£¸¦ °¡Á® ¿À·Á¸é $ firmware_version = $ ref_status -> { "¹öÀü"}; ´ÙÀ½À¸·Î $ ref_shares´Â °¢ ¿ä¼Ò°¡ audiotron¿¡ ³ª¿­µÈ °øÀ¯¿¡ ´ëÇÑ UNC À̸§À» Æ÷ÇÔÇÏ´Â ¹è¿­¿¡ ´ëÇÑ ÂüÁ¶ÀÔ´Ï´Ù. ¸¶Áö¸·À¸·Î $ ref_hosts´Â audiotron¿¡¼­ ¾Ë·ÁÁø È£½ºÆ® ´ç ÇϳªÀÇ Çؽà ¹è¿­¿¡ ´ëÇÑ ÂüÁ¶ÀÔ´Ï´Ù. ¹è¿­ÀÇ °¢ Çؽÿ¡´Â 'È£½ºÆ®', 'IP'¹× 'State'¶ó´Â ¼¼ °¡Áö ¿ä¼Ò°¡ Æ÷ÇԵǾî ÀÖ½À´Ï´Ù. ¿¹¸¦ µé¾î ¹è¿­ÀÇ Ã¹ ¹ø° È£½ºÆ®ÀÇ IP ÁÖ¼Ò¸¦ °¡Á® ¿À·Á¸é $ IP_ADD = $ REF_HOSTS -> -> { "IP"}; MSG (text_line1, , ) ¸í·É ¿äû¿¡¼­ °á°ú°¡ Æ÷ÇÔ µÈ ¹®ÀÚ¿­À» ¹ÝȯÇÕ´Ï´Ù. $ line1 = "ÀÌ°ÍÀº Å×½ºÆ®ÀÔ´Ï´Ù."; $ line2 = "´Ù¸¥ perl ÇØÄ¿"; $ time_out = "5"; $ cmd_result = $ at-> msg ($ line1, $ line2, $ time_out); dumptoc (share_name) ¸í·É ¿äû¿¡¼­ °á°ú°¡ Æ÷ÇÔ µÈ (¶§·Î´Â °Å´ëÇÑ!) ¹®ÀÚ¿­À» ¹ÝȯÇÕ´Ï´Ù. $ share = q | \ lithiummp3 | $ toc = $ at-> dumptoc ($ ¸ò); Âü°í : ÀÌ°ÍÀº 'ÀÚ¸® Ç¥½Ã ÀÚ'¿Í ¸¶Âù°¡Áö·Î ÃֽŠ¹öÀüÀº Ãâ·ÂÀ» ¹®ÀÚ¿­·Î Àü´ÞÇÏ´Â ´ë½Å ÆÄÀÏ¿¡ ±â·Ï ÇÒ ¼ö ÀÖ½À´Ï´Ù. ¸Å¿ì ºñÈ¿À²Àû ÀÎ ÇöÀç ÇüÅÂÀÔ´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.


ÀåÄ¡ :: Audiotron. °ü·Ã ¼ÒÇÁÆ®¿þ¾î

Lin-SetIbuf ¸ðµâ

LIN-SETIBUF ¸ðµâÀº SETI @ Ȩ Ŭ¶óÀ̾ðÆ® ÆÄÀÏ ¹× SETI @ Ȩ ÅؽºÆ® Ŭ¶óÀ̾ðÆ®¸¦ Á¶ÀÛÇϱâÀ§ÇÑ PERL ¸ðµâ ¼¼Æ®ÀÔ´Ï´Ù. ...

214

´Ù¿î·Îµå