Infosys :: Freedb.

Infosys :: Freedb´Â Freedb ¿¬°á °øÀåÀ»À§ÇÑ Perl ¸ðµâÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

Infosys :: Freedb. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Vincenzo Zocca
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~zoccav/HH-Unispool-Config-0.3/lib/HH/Unispool/Config/File/Token/Unnumbered/Bcs.pm

Infosys :: Freedb. ű×


Infosys :: Freedb. ¼³¸í

Infosys :: Freedb´Â Freedb ¿¬°á °øÀåÀ»À§ÇÑ Perl ¸ðµâÀÔ´Ï´Ù. Infosys :: Freedb´Â Freedb Connection Factory ¿ë Perl ¸ðµâÀÔ´Ï´Ù .Snopsis´Â Infosys :: FreeDB°¡ ÇÊ¿äÇÕ´Ï´Ù. Infosys :: Freedb :: Entry; # ±âº» CD ÀåÄ¡¿¡¼­ Ç׸ñ Àб⠳» $ entry = Infosys :: Freedb :: Entry-> new_from_cdparanoia (); # HTTP ¿¬°á ¸¸µé±â MY $ FACT = Infosys :: FreedB-> New (); $ CONN = $ FACT-> create_connection ({client_name => testing-infosys :: freedb ', client_version => $ infosys :: freedb :: Version,}); # Äõ¸® Freedb My $ RES_Q = $ CONN-> Äõ¸® ($ Ç׸ñ); ½ºÄ®¶ó ($ res_q-> get_match ()) || DISE '±âº» CD-ROM µå¶óÀ̺êÀÇ DISCK¿¡ ´ëÇÑ ÀÏÄ¡ Ç׸ñ ¾øÀ½'; # ù ¹ø° ¸ÅÄ¡ My $ res_r = $ conn-> Àбâ (($ res_q-> get_match ()) ); # stderr¿¡ Ç׸ñÀ» ÀÛ¼º Io :: ÇÚµé; ³» $ FH = IO :: ÇÚµé -> new_from_fd (ÇÊ·¹ ³ë (stderr), 'w'); $ res_r-> get_entry () -> write_fh ($ fh); ¿ä±¸ »çÇ× : ¡¤ Perl.


Infosys :: Freedb. °ü·Ã ¼ÒÇÁÆ®¿þ¾î

UI :: Dialog.

UI :: Dialog Project´Â ¹é¿£µå ŽÁö ÇÁ·Î¼¼½ºÀÇ ¿ì¼± ¼øÀ§ ¼ø¼­¸¦ Áö¿øÇÕ´Ï´Ù. ...

205

´Ù¿î·Îµå