| ¿Àµð¿À :: Audiere. PERLÀÇ ¿Àµð¿À ¸ÞÀÌ¾î »ç¿îµå ¶óÀ̺귯¸® »ç¿ë |
Áö±Ý ´Ù¿î·Îµå |
¿Àµð¿À :: Audiere. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~tels/
¿Àµð¿À :: Audiere. ű×
¿Àµð¿À :: Audiere. ¼³¸í
Perl¿¡¼ Audiere »ç¿îµå ¶óÀ̺귯¸®¸¦ »ç¿ëÇϽʽÿÀ Audio :: Audiere´Â Perl.synopsis¿¡¼ ¿Àµð¿À »ç¿îµå ¶óÀ̺귯¸®¸¦ »ç¿ëÇϴ Ŭ·¡½ºÀÔ´Ï´Ù. ¿Àµð¿À :: Audiere QW / Audio_Stream Audio_Buffer /; ¾ö°ÝÇÑ »ç¿ë; °æ°í¸¦ »ç¿ëÇϽʽÿÀ. MY $ AUDIERE = AUDIO :: AUDIERE-> NEW (); if ($ audiere-> error ()) {die ( "¿Àµð¿À ÀåÄ¡¸¦ °¡Á®¿Ã ¼ö ¾ø½À´Ï´Ù :"Àμâ $ audiere-> error ()); } ÀÌÁ¦ ¿ì¸®´Â µå¶óÀ̹ö°¡ ÀÖ½À´Ï´Ù. ÀϺΠ»ç¿îµå ½ºÆ®¸²À» Ãß°¡ÇϽʽÿÀ # µð½ºÅ©¿¡¼ ¼Ò¸®¸¦ ½ºÆ®¸®¹Ö My $ stream = $ Audiere-> AddStream ( 'media / sample.ogg', audio_stream); # Ç×»ó ¿À·ù¸¦ È®ÀÎÇϽʽÿÀ. ($ stream-> error ()) {print "»ç¿îµå¸¦·Îµå ÇÒ ¼ö¾ø´Â °æ¿ì :", $ stream-> error (), " "°¡´ÉÇÑ °æ¿ì ¸Þ¸ð¸®¿¡ »ç¿îµå¸¦·ÎµåÇϽʽÿÀ (°¡´ÉÇÑ °æ¿ì) ¶ÇÇÑ ±âº» ³» $ sound = $ audiere-> addstream ( 'media / effect.wav', audio_buffer)À̱⵵ÇÕ´Ï´Ù. # Ç×»ó ¿À·ù¸¦ È®ÀÎÇÕ´Ï´Ù. if ($ sound- > error ()) {print "´Â ¼Ò¸®¸¦·Îµå ÇÒ ¼ö ¾ø½À´Ï´Ù :", $ sound-> error (), " ";} $ stream-> setVolume (0.5); # 50 % $ stream-> setRepeat (1); # loooop if ($ stream-> isSeekable ()) {$ stream-> setPosition (100); # ¾à°£ °Ç³Ê ¶Ù±â } $ stream-> play (); # $ »ç¿îµå Àç»ý ½ÃÀÛ -> Àç»ý ()À» ½ÃÀÛÇϽʽÿÀ. # Àç»ý ½ÃÀÛ # ¹«·á »ç¿îµå ÀåÄ¡°¡ ÇÊ¿äÇÏÁö ¾Ê½À´Ï´Ù, ÀÚµ¿À¸·Î ¼öÇàµË´Ï´Ù ¿ä±¸ »çÇ× : ¡¤ Perl.
¿Àµð¿À :: Audiere. °ü·Ã ¼ÒÇÁÆ®¿þ¾î