CDDB.

CDDB´Â µå¶óÀ̺êÀÇ ¿Àµð¿À CDÀÇ CDDB Ç׸ñÀ» ÀÐÀ» ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

CDDB. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • 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. °ü·Ã ¼ÒÇÁÆ®¿þ¾î