| Infosys :: Freedb. Infosys :: Freedb´Â Freedb ¿¬°á °øÀåÀ»À§ÇÑ Perl ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
Infosys :: Freedb. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- 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. °ü·Ã ¼ÒÇÁÆ®¿þ¾î