| SVN :: Class. Perl °´Ã¼·Î Subversion ÀÛ¾÷ °ø°£ Á¶ÀÛ |
Áö±Ý ´Ù¿î·Îµå |
SVN :: Class. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Peter Karman
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~karman/
SVN :: Class. ű×
SVN :: Class. ¼³¸í
Perl °³Ã¼·Î Subversion ÀÛ¾÷ °ø°£À» Á¶ÀÛÇÕ´Ï´Ù SVN ::: Ŭ·¡½º´Â ±âº» Subversion ÀÛ¾÷ °ø°£ °ü¸®¸¦ Çã¿ëÇÏ´Â °æ·Î :: Ŭ·¡½º¸¦ È®ÀåÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. svn :: class :: file ¹× svn :: class :: dirÀº °æ·Î :: class :: file :: stat ¹× path :: class :: direÀÇ ÇÏÀ§ Ŭ·¡½ºÀÔ´Ï´Ù. subversion swig ¹ÙÀεù. ´ë½Å SVN ¹ÙÀ̳ʸ® µµ±¸´Â IPC :: CMD¸¦ »ç¿ëÇÏ¿© ¸ðµç »óÈ£ ÀÛ¿ë¿¡ »ç¿ëµË´Ï´Ù. ÀÌ ¼³°è °áÁ¤Àº ÃÖ´ë À̽ļºÀ» À§ÇØ ¸¸µé¾îÁ³À¸¸ç ºñ CPAN Á¾¼Ó¼ºÀ» Á¦°ÅÇß½À´Ï´Ù. SVN :: Ŭ·¡½º¸¦ »ç¿ëÇÕ´Ï´Ù. ³» $ file = svn_file ( 'path / to / file'); MY $ FH = $ FILE-> OPEN ( '>>'); Àμâ {$ FH} "Hello World \ N"; $ fh-> ´Ý±â; $ file-> add; if ($ FILE-> ¼öÁ¤µÊ) {MY $ REV = $ FILE-> Ä¿¹Ô ( 'ÆÄÀÏÀÌ º¯°æµÊ'); "$ FILEÀÌ Revision $ Rev \ N"À¸·Î Ä¿¹ÔµÇ¾ú½À´Ï´Ù. } else {croak "$ fileÀº Ä¿¹ÔµÇÁö ¾Ê¾Ò½À´Ï´Ù.". $ file-> errstr; } My $ DIR = svn_dir ( 'path / to / dir'); $ dir-> mkpath -d $ dir; $ dir-> add; # $ dir-> modified ÀÎ °æ¿ì ±âº» $ dir-> commit ( 'Ãß°¡ µÈ µð·ºÅ丮')·Î Àç¹ßÇÕ´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
SVN :: Class. °ü·Ã ¼ÒÇÁÆ®¿þ¾î