| CDDB. CDDB´Â µå¶óÀ̺êÀÇ ¿Àµð¿À CDÀÇ CDDB Ç׸ñÀ» ÀÐÀ» ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
CDDB. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Armin Obersteiner
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/author/FONKIE/CDDB_get-2.27/CDDB_get.pm
CDDB. ű×
CDDB. ¼³¸í
CDDB´Â µå¶óÀ̺êÀÇ ¿Àµð¿À CDÀÇ CDDB Ç׸ñÀ» ÀÐÀ» ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. CDDB´Â µå¶óÀ̺êÀÇ ¿Àµð¿À CD¿¡ ´ëÇÑ CDDB Ç׸ñÀ» ÀÐÀ» ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. CDDB_GET QW (GET_CDDB)¸¦ »ç¿ëÇϽʽÿÀ. ³» % config; # ÀÌÈÄÀÇ º¯¼ö´Â ±âº»°ª°ú ´Ù¸¥ °æ¿ì $ config {cddb_host} = "freedb.freedb.org"¿Í ´Ù¸¥ °æ¿ì ¼±¾ðÇؾßÇÕ´Ï´Ù. # cddb È£½ºÆ® $ config {cddb_port} = 8880 ¼³Á¤; # cddb Æ÷Æ® $ config {cddb_mode} = "cddb"; # cddb ¸ðµå ¼³Á¤ : cddb ¶Ç´Â http $ config {cd_device} = "/ dev / cdrom"; # CD ÀåÄ¡ ¼³Á¤ # »ç¿ëÀÚ »óÈ£ ÀÛ¿ë ȯ¿µ? $ config {input} = 1; # 1 : »ç¿ëÀÚ°¡ µÑ ÀÌ»óÀÇ °¡´É¼ºÀÌ ÀÖ´ÂÁö ¹¯½À´Ï´Ù # 0 : »ç¿ëÀÚ »óÈ£ ÀÛ¿ë ¾øÀ½ # my = get_cddb (% config)¿¡¼ °¡Á® ¿À±â; (Á¤ÀÇ µÈ $ CD {TITLE}) {DIE "¾Æ´Ï¿À CDDB Ç׸ñÀº"; } # # °á°ú°¡ "¾ÆƼ½ºÆ® : $ CD {¾ÆƼ½ºÆ®} n"À» ÀμâÇϽʽÿÀ. "Á¦¸ñ : $ CD {Title} n"; Àμâ "Ä«Å×°í¸® : $ cd {cat} n"; Àμâ "CDDBID : $ CD {ID} n"; Àμâ "trackno : $ cd {tno} n"; ³» $ n = 1; Foreach My $ i (@ {$ CD {Track}}) {Àμâ "Æ®·¢ $ n : $ in"; $ n ++; }ÀÌ ¸ðµâ / ½ºÅ©¸³Æ® ¿Àµð¿À CDÀÇ CDDB Á¤º¸¸¦ °¡Á®¿É´Ï´Ù. Linux, SunOS ¶Ç´Â * BSD, CDROM µå¶óÀÌºê ¹×À̸¦ ¼öÇàÇϱâ À§ÇØ È°¼º ÀÎÅÍ³Ý ¿¬°áÀÌ ÇÊ¿äÇÕ´Ï´Ù. ¡¤ Perl ¿ä±¸ »çÇ× : ¡¤ Perl.
CDDB. °ü·Ã ¼ÒÇÁÆ®¿þ¾î