| ÆÄÀÏ :: Çü½Ä :: Riff. FILE :: FORMAT :: RIFF´Â ¸®¼Ò½º ±³È¯ ÆÄÀÏ Çü½Ä / RIFF ÆÄÀÏ¿¡ ´ëÇÑ Perl ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
ÆÄÀÏ :: Çü½Ä :: Riff. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~sturm/File-Format-RIFF-1.0.1/lib/File/Format/RIFF.pm
ÆÄÀÏ :: Çü½Ä :: Riff. ű×
ÆÄÀÏ :: Çü½Ä :: Riff. ¼³¸í
File :: Format :: Riff´Â ¸®¼Ò½º ±³È¯ ÆÄÀÏ Çü½Ä / RIFF ÆÄÀÏ¿¡ ´ëÇÑ Perl ¸ðµâÀÔ´Ï´Ù. file :: format :: RIFF´Â ¸®¼Ò½º ±³È¯ ÆÄÀÏ Çü½Ä / RIFF ÆÄÀÏ¿¡ ´ëÇÑ Perl ¸ðµâÀÔ´Ï´Ù. Synopsis ÆÄÀÏ :: Format :: Riff; ¿±â (in, 'ÆÄÀÏ') ¶Ç´Â DIE "´Â ÆÄÀÏÀ» ¿ ¼ö ¾ø½À´Ï´Ù : $!"; ³» ($ riff1) = ÆÄÀÏ :: Çü½Ä :: RIFF-> Àбâ (* in); ¿¡ ´Ý´Â´Ù ); $ rift1-> ´ýÇÁ; MY ($ RIFF2) = »õ ÆÄÀÏ :: FORMAT :: RIFF ( 'À¯Çü'); Foreach My $ Chunk ($ riff1-> µ¥ÀÌÅÍ) {($ chunk-> id eq 'list'); $ rift2-> AddChunk ($ chunk-> id, $ chunk-> data); } ¿±â (Out, "> OtherFile") ¶Ç´Â Die "°¡ ÆÄÀÏÀ» ¿ ¼ö ¾ø½À´Ï´Ù : $!"; $ rift2-> write (* out); ´Ý±â (out); ÆÄÀÏ :: Format :: RIFF ÀÚ¿ø ±³È¯ ÆÄÀÏ Çü½ÄÀÇ ±¸ÇöÀ» Á¦°øÇÕ´Ï´Ù. RIFF ÆÄÀÏÀ» Àаí Á¶ÀÛÇÏ°í ÀÛ¼ºÇÒ ¼ö ÀÖ½À´Ï´Ù. Constructors $ riff = new file :: format :: RIFF ($ type, $ data); »õ ÆÄÀÏ :: Format :: RIFF °´Ã¼¸¦ ¸¸µì´Ï´Ù. $ type ÀºÀÌ Æ¯Á¤ RIFF ÆÄÀÏÀÇ À¯ÇüÀ» ½Äº°ÇÏ´Â 4 °³ÀÇ ¹®ÀÚ ÄÚµåÀÔ´Ï´Ù. ƯÁ¤ À¯ÇüÀº Çü½ÄÀ» °®µµ·Ï Á¤ÀÇµÇ¾î ¾î¶² ûũ°¡ Ç¥½ÃµÇ¾î¾ßÇÏ´ÂÁö (¿¹ : ¿þÀ̺ê ÆÄÀÏ)¸¦ ÁöÁ¤ÇÕ´Ï´Ù. $ À¯ÇüÀÌ ÁöÁ¤µÇÁö ¾ÊÀ¸¸é ±âº»°ªÀº ''(4 °³ÀÇ °ø¹é)ÀÔ´Ï´Ù. $ µ¥ÀÌÅÍ´Â ¸î °¡Áö RIFF ¸ñ·Ï ¹× / ¶Ç´Â ¸®ÇÁ µ¢¾î¸®°¡ Æ÷ÇÔ µÈ ¹è¿ ÂüÁ¶ ¿©¾ßÇÕ´Ï´Ù. $ µ¥ÀÌÅÍ°¡ Undef ¶Ç´Â ÁöÁ¤µÇÁö ¾ÊÀº °æ¿ì »õ RIFF ¿ÀºêÁ§Æ®°¡ ºñ¾î ÀÖÁö ¾ÊÀº °æ¿ì. $ riff = file : format :: RIFF-> Àбâ ($ fh, $ filesize); ÁÖ¾îÁø ÆÄÀÏ Çڵ鿡¼ ±âÁ¸ ¸®ÇÁ ÆÄÀÏÀ» ÀÐ°í ±¸¹® ºÐ¼®ÇÕ´Ï´Ù. $ fh. ÆÄÀÏÀÌ À¯È¿ÇÑ RIFF ÆÄÀÏÀÌ ¾Æ´Ñ °æ¿ì ¿¹¿Ü°¡ ¹ß»ýÇÕ´Ï´Ù. $ filesize ÆÄÀÏ Çü½Ä °Ë»çÀÇ ÇÑ Ãø¸éÀ» Á¦¾îÇÕ´Ï´Ù - $ Filesize°¡ ÁöÁ¤µÇÁö ¾ÊÀº °æ¿ì STATÀÌ $ FH¿¡¼ È£ÃâµÇ¾î ¿¹»óµÇ´Â µ¥ÀÌÅÍÀÇ ¾çÀ» °áÁ¤ÇÕ´Ï´Ù. ÇØ´ç °ªÀ» $ FileSize·Î Àü´ÞÇÏ¿© ¿¹»ó ÇÒ µ¥ÀÌÅÍÀÇ ¾çÀ» ¸í½Ã ÀûÀ¸·Î ÁöÁ¤ÇÒ ¼ö ÀÖ½À´Ï´Ù. µÎ °æ¿ì ¸ðµÎ µ¥ÀÌÅÍ Àб⠾çÀº ¿¹»ó ±Ý¾×°ú ÀÏÄ¡ÇÏ´ÂÁö È®ÀÎÇÕ´Ï´Ù. ±×·¸Áö ¾ÊÀ¸¸é ¿¹¿Ü°¡ ¹ß»ýÇÕ´Ï´Ù. ÀÌ ¼öÇ¥¸¦ ¸¸µé·Á¸éÀÌ È®ÀÎÀ» ¼öÇàÇÏÁö ¾ÊÀ¸·Á¸é $ Filesize for Undef¸¦ Àü´ÞÇϽʽÿÀ. ÀÌ·¸°ÔÇϸé "¸Þ¸ð¸®¿¡¼"ÆÄÀÏ ÇÚµéÀ» ÀÐÀ¸·Á¸é ´ÙÀ½À» ¼öÇàÇϽʽÿÀ. ¿±â ($ FH, '¿ä±¸ »çÇ× : ¡¤ Perl.
ÆÄÀÏ :: Çü½Ä :: Riff. °ü·Ã ¼ÒÇÁÆ®¿þ¾î