| ¿Àµð¿À : PSID. ¿Àµð¿À : PSID´Â SID ÆÄÀÏ (Commodore-64 À½¾Ç ÆÄÀÏ)À» ó¸®ÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
¿Àµð¿À : PSID. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Michael Schwendt
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~lala/Audio-SID-3.11/SID.pm
¿Àµð¿À : PSID. ű×
¿Àµð¿À : PSID. ¼³¸í
¿Àµð¿À : PSID´Â SID ÆÄÀÏ (Commodore-64 À½¾Ç ÆÄÀÏ)À» ó¸®ÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. ¿Àµð¿À : PSID´Â SID ÆÄÀÏ (Commodore-64 À½¾Ç ÆÄÀÏ)À» ó¸®ÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù .Synopsis »ç¿ë ¿Àµð¿À :: SID; $ mysid = »õ·Î¿î ¿Àµð¿À :: sid ( '- filename'=> 'test.sid') ¶Ç´Â Á×À» "houps!"; "title ="À» ÀμâÇϽʽÿÀ. $ mysid-> get ( 'title')). "N"; "MD5 ="À» ÀμâÇϽʽÿÀ. $ mysid-> getmd5 (); $ mysid-> set (ÀÛ¼ºÀÚ => 'lala', title => 'test2', ¸±¸®½º => '2001 Çë°¡¸®¾î À½¾Ç ½Â¹«¿ø'); $ mysid-> validate (); $ mysid-> write ( '- filename'=> test2.sid ') ¶Ç´Â die "ÆÄÀÏÀ» ¾µ ¼ö ¾ø½À´Ï´Ù!"; @ array = $ mysid-> getFieldNames (); "FieldNames ="ÀμâÇϽʽÿÀ. °¡ÀÔ ( '', @array). "n";ÀÌ ¸ðµâÀº SID ÆÄÀÏ (ÀϹÝÀûÀ¸·Î .sid È®ÀåÀÚ¸¦ º£¾î¸µ), commodore-64 ÄÄÇ»ÅÍ¿¡¼ Ãß°¡ Á¤º¸ Çì´õ°¡ Ãß°¡ µÈ Ãß°¡ Á¤º¸ Çì´õ¿Í ÇÔ²² º¯È¯ µÈ µ¥ÀÌÅÍ ·çƾÀÔ´Ï´Ù. Á¤È®ÇÑ ÆÄÀÏ Çü½Ä¿¡ ´ëÇÑ ÀÚ¼¼ÇÑ ³»¿ëÀº ¸ðµâ ÆÐÅ°Áö¿¡ Æ÷ÇÔ µÈ SID_FILE_FORMAT.TXT ÆÄÀÏÀÇ ¸ðµç SID ÇÊµå ¼³¸íÀ» ÂüÁ¶ÇϽʽÿÀ. ¿ä±¸ »çÇ× : ¡¤ Perl.
¿Àµð¿À : PSID. °ü·Ã ¼ÒÇÁÆ®¿þ¾î