| MP3 :: M3U :: Æļ MP3 :: M3U :: Æļ´Â MP3 Àç»ý ¸ñ·Ï ÆļÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
MP3 :: M3U :: Æļ ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~burak/Text-Template-Simple-0.50/lib/Text/Template/Simple.pm
MP3 :: M3U :: Æļ ű×
MP3 :: M3U :: Æļ ¼³¸í
MP3 :: M3U :: Æļ´Â MP3 Àç»ý ¸ñ·Ï ÆļÀÔ´Ï´Ù. mp3 :: m3u :: parser´Â mp3 Àç»ý ¸ñ·Ï parser.synopsis »ç¿ë mp3 :: m3u :: parser; ³» $ parser = mp3 :: m3u :: parser-> new (% ¿É¼Ç); $ Parser-> ±¸¹® ºÐ¼® (* FileHandle, $ scalar, "/ path/to/playlist.m3u"); ³» $ result = $ parser-> °á°ú; ³» % info = $ Parser-> Á¤º¸; $ parser-> ³»º¸³»±â (-format => 'xml', -file => "/ path/mp3.xml", -Encoding => 'ISO-8859-9')); $ parser-> export (- format => 'html', -file => "/ path/mp3.html", -Drives => 'off); # ¸ðµç M3U ÆÄÀÏÀ» °³º° HTML ÆÄÀÏ·Î º¯È¯ÇϽʽÿÀ. foreach () {$ Parser-> Parse ($ _) -> ³»º¸³»±â -> Àç¼³Á¤; } # ¸ðµç M3U ÆÄÀÏÀ» ÇϳªÀÇ Å« HTML ÆÄÀÏ·Î º¯È¯ÇϽʽÿÀ. foreach () {$ parser-> ±¸¹® ºÐ¼® ($ _); } $ parser-> ³»º¸³»±â; mp3 :: m3u :: parser´Â M3U MP3 Àç»ý ¸ñ·Ï ÆÄÀÏÀÇ ÆļÀÔ´Ï´Ù. ¶ÇÇÑ °¡´ÉÇÑ °æ¿ì Extinf Çà (ID3 ³ë·¡ À̸§°ú ½Ã°£ÀÌ Æ÷ÇÔ µÈ) ±¸¹® ºÐ¼®ÇÕ´Ï´Ù. ÆÄ½Ì µÈ °´Ã¼¸¦ °¡Á® ¿À°Å³ª Æ÷¸ËÀ» ÁöÁ¤ÇÏ°í ÆÄ½Ì µÈ µ¥ÀÌÅ͸¦ ³»º¸³¾ ¼ö ÀÖ½À´Ï´Ù. Çü½ÄÀº XML ¶Ç´Â HTML ÀÏ ¼ö ÀÖ½À´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
MP3 :: M3U :: Æļ °ü·Ã ¼ÒÇÁÆ®¿þ¾î