| Poe :: ÈÙ :: ¿Àµð¿À :: ¹ÌÄ£ POE :: ÈÙ :: Audio :: MAD´Â ¼¼¼Ç ³»ºÎ Â÷´Ü MPEG ½ºÆ®¸² Àç»ý Áß¿¡ ½ÇÇàµÇ´Â POE ÈÙÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
Poe :: ÈÙ :: ¿Àµð¿À :: ¹ÌÄ£ ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Mark McConnell
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~mischke/Audio-Mad-0.6/lib/Audio/Mad/Stream.pm
Poe :: ÈÙ :: ¿Àµð¿À :: ¹ÌÄ£ ű×
Poe :: ÈÙ :: ¿Àµð¿À :: ¹ÌÄ£ ¼³¸í
PoE :: Wheel :: Audio :: MAD´Â ¼¼¼Ç ³»ºÎ Â÷´Ü MPEG ½ºÆ®¸²À» Àç»ýÁßÀÎ POE ÈÙÀÔ´Ï´Ù. PoE :: Wheel :: Audio :: MAD´Â ¼¼¼ÇÀÌ ¾Æ´Ñ ºí·ÎÅ· MPEG ½ºÆ®¸²À» ±¸ÇöÇÏ´Â POE ÈÙÀÔ´Ï´Ù. Synopsis »ç¿ë PoE; PoE :: Wheel :: Audio :: MAD; PoE :: Session-> create (inline_states => {_Start => am_start, message => am_message}); sub am_start {my ($ Ä¿³Î, $ heap) = @_ ; ## ¾Æ·¡¿¡ ³ª¿µÈ µðÄÚ´õ ¿É¼ÇÀ» ÁöÁ¤ÇÒ ¼öµµ ÀÖ½À´Ï´Ù. $ heap -> {wheel} = new poe :: wheel :: audio :: mad (message_event => message); $ kernel-> ¼öÈ®·® ( 'decoder_open', {filename => '/ path/to/to/to/some/seam.mp3', play => 1}); } Sub AM_MESSAGE {MY ($ Ä¿³Î, $ message) = @_ ; if ($ ¸Þ½ÃÁö -> {id} EQ 'input_eof_warning') {print "futhrow..n"; Undef $ heap -> {Wheel}; } ELSIF ($ message -> {id} eq 'decoder_frame_data') {(Á¤ÀÇ µÈ ($ ¸Þ½ÃÁö -> {data} -> {played})) {Àμâ "rplayed : $ message -> {data} -> {Àç»ý } "; }}} $ poe_kernel-> run (); exit (); PoE :: ÈÙ :: ¿Àµð¿À :: MAD´Â Naitive Perl MPEG µðÄÚ´õ¸¦ Perl ¼¼¼ÇÀ¸·Î °¡Á® ¿À·Á°í ½ÃµµÇÕ´Ï´Ù. ÀÌ ¸ðµâÀº ÀÚ¿¬À¸·Î ÀÎÇØ PoE ÈÙÀ¸·Î ÀÛµ¿Çϵµ·Ï ÀÛ¼ºµÇ¾ú½À´Ï´Ù. ´Ü¼øÈ÷ MPEG ½ºÆ®¸²À» ¿¬ÁÖÇÕ´Ï´Ù. Ç÷¹ÀÌ¾î ¹× Ãë±Þ ¾÷µ¥ÀÌÆ®¸¦ Á¦¾îÇÏ´Â ÀÛ¾÷À» ¼öÇàÇؾßÇÕ´Ï´Ù. ÀÌ°ÍÀº Á¤¸»·Î ´ç½ÅÀÇ ÀüÅëÀûÀÎ ¹ÙÄû°¡ ¾Æ´Õ´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
Poe :: ÈÙ :: ¿Àµð¿À :: ¹ÌÄ£ °ü·Ã ¼ÒÇÁÆ®¿þ¾î