| mp3 :: ÅÂ±× MP3 :: ű״ MP3 ¿Àµð¿À ÆÄÀÏÀÇ Å±׸¦ Àд PERL ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
mp3 :: ÅÂ±× ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Thomas Geffert and Ilya Zakharevich
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~ilyaz/MP3-Tag-0.9710/Tag.pm
mp3 :: ÅÂ±× Å±×
mp3 :: ÅÂ±× ¼³¸í
MP3 :: ű״ MP3 ¿Àµð¿À ÆÄÀÏÀÇ Å±׸¦ Àд PERL ¸ðµâÀÔ´Ï´Ù. MP3 :: ű״ MP3 ¿Àµð¿À ÆÄÀÏÀÇ Å±׸¦ Àд Perl ¸ðµâÀÔ´Ï´Ù. Synopsis »ç¿ë MP3 :: ű×; $ mp3 = mp3 :: tag-> new ($ filename); # °¡Àå ½¬¿î ¹æ¹ýÀ¸·Î ÆÄÀÏ¿¡ ´ëÇÑ Á¤º¸¸¦ ¾òÀ¸½Ê½Ã¿À ($ title, $ track, $ ¾ÆƼ½ºÆ®, $ ¾Ù¹ü, $ ´ñ±Û, $ ³â, $ genre) = $ mp3-> autoinfo (); $ ´ñ±Û = $ mp3-> comment (); # ¶Ç´Â ±âÁ¸ ű׿¡ ´ëÇÑ ÅÂ±× # ½ºÄµ ÆÄÀÏÀ» ÀÚ¼¼È÷ »ìÆ캸½Ê½Ã¿À $ MP3-> get_tags; if ($ mp3 -> {id3v1}) {# $ id3v1 = $ mp3 -> {id3v1} ű׿¡¼ ÀϺΠÁ¤º¸¸¦ ÀÐÀ¸½Ê½Ã¿À. # $ ID3V1Àº $ MP3 -> {ID3V1} Àμâ $ ID3v1-> Á¦¸ñ¿¡ ´ëÇÑ ¹Ù·Î °¡±âÀÔ´Ï´Ù. # ÅÂ±× ³»¿ëÀ» º¯°æÇϽʽÿÀ $ id3v1-> ¸ðµç ( "¼Û", "¾ÆƼ½ºÆ®", "¾Ù¹ü", 2001, "comment", 10, "top 40"); $ id3v1-> write_tag; } ($ mp3-> {id3v2}) {# ÅÂ±× ($ name, $ Á¤º¸) = $ mp3 -> {id3v2} -> get_frame ( "tit2"); # $ MP3 -> {ID3V2} -> remove_tag; ű׸¦ ¿ÏÀüÈ÷ »èÁ¦ÇϽʽÿÀ. } else {# »õ ÅÂ±× »ý¼º $ mp3-> new_tag ( "ID3V2"); $ MP3 -> {ID3V2} -> add_frame ( "TALB", "¾Ù¹ü Á¦¸ñ"); $ mp3 -> {id3v2} -> write_tag; } $ mp3-> close (); ¿ä±¸ »çÇ× : ¡¤ Perl.
mp3 :: ÅÂ±× °ü·Ã ¼ÒÇÁÆ®¿þ¾î