| VCS :: DIR. VCS :: DIRÀº VCS µð·ºÅ丮¿¡ ¾×¼¼½ºÇϱâÀ§ÇÑ PERL ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
VCS :: DIR. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Greg McCarroll
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~gmccar/VCS-0.14/VCS/Dir.pm
VCS :: DIR. ű×
VCS :: DIR. ¼³¸í
VCS :: DIRÀº VCS µð·ºÅ丮¿¡ ¾×¼¼½ºÇϱâÀ§ÇÑ PERL ¸ðµâÀÔ´Ï´Ù. VCS :: DIRÀº VCS µð·ºÅ丮¿¡ ¾×¼¼½ºÇϱâÀ§ÇÑ PERL ¸ðµâÀÔ´Ï´Ù .SNOPSIS VCS¸¦ »ç¿ëÇÕ´Ï´Ù. MY $ D = VCS :: DIR-> »õ ($ URL); $ D-> URLÀ» ÀμâÇϽʽÿÀ. "N"; ³» $ x ($ d-> ³»¿ë) {print "t"¸¦ foreach. $ x-> URL. "T". ref ($ x). "N"; } "*"·Î Ç¥½ÃµÈ methodsMethods´Â ¾ÆÁ÷ finalized / directed.vcs :: dir-> create_new ($ URL) * $ URLÀº ÆÄÀÏ ÄÁÅ×ÀÌ³Ê URLÀÔ´Ï´Ù. ÆÄÀÏ - ÄÁÅ×À̳ʰ¡ ÀÖÀ½À» À¯µµÇÏ°í Ŭ·¡½º VCS :: DIRÀÇ ¿ÀºêÁ§Æ®¸¦ ¹ÝȯÇϰųª ½ÇÆÐÇÏ¸é ¿¹¿Ü¸¦ ´øÁö´Â µ¥ ÀûÀýÇÏ°Ô µ¥ÀÌÅ͸¦ »ý¼ºÇÕ´Ï´Ù. ÀÌ°ÍÀº ¼ø¼öÇÑ °¡»ó ¸Þ¼ÒµåÀ̸ç,ÀÌ Å¬·¡½º (ÀÌ Å¬·¡½º°¡ °á°ú)¿¡¼ Á÷Á¢ È£Ãâ ÇÒ ¼ö ¾ø½À´Ï´Ù (DIE°¡ °á°ú) .vcs :: dir-> ¼Ò°³ ($ name, $ create_class) * $ nameÀº ÆÄÀÏÀ̰ųª µð·ºÅ丮 À̸§, Àý´ë ¶Ç´Â »ó´ë. $ create_class´Â ÆÄÀÏ ¶Ç´Â dirÀÌ¸ç ±¸Çö Ŭ·¡½º´ÂÀÌ ÄÚµå¿Í ºñ½ÁÇÑ °ÍÀ» »ç¿ëÇÏ¿© ÀûÀýÇÑ create_new : sub ¼Ò°³ {my ($ class, $ name, $ create_class) = @_; MY $ CALL_CLASS = $ Ŭ·¡½º; $ call_class = ~ s / + $ / $ create_class /; $ call_class-> create_new ($ name)¸¦ ¹ÝȯÇÕ´Ï´Ù. }ÀÌ Å¬·¡½º (DIE°¡ °á°ú)¿¡¼ Á÷Á¢ È£Ãâ ÇÒ ¼ö¾ø´Â ¼ø¼öÇÑ °¡»ó ¸Þ¼ÒµåÀÔ´Ï´Ù .vcs :: dir-> new ($ URL) $ URLÀº ÆÄÀÏ ÄÁÅ×ÀÌ³Ê URLÀÔ´Ï´Ù. Ŭ·¡½º VCS :: DIRÀÇ °´Ã¼¸¦ ¸®ÅÏÇϰųª ½ÇÆÐÇÏ¸é ¿¹¿Ü¸¦ ´øÁ³½À´Ï´Ù. ÀϹÝÀû À¸·ÎÀÌ ¸Þ¼µåÀÇ ÀçÁ¤ÀÇ´Â °´Ã¼¸¦ ¸¸µé°í ÀûÀýÇÑ °ÍÀ¸·Î Ãß°¡·Î Ãß°¡ ÇÑ ´ÙÀ½ ÀûÀýÇÑ °ÍÀ¸·Î Ãß°¡ÇÕ´Ï´Ù. DIR-> init ($ URL) $ URLÀº ÆÄÀÏ - ÄÁÅ×ÀÌ³Ê URL. Ŭ·¡½º VCS :: DIRÀÇ °´Ã¼¸¦ ¹ÝȯÇÕ´Ï´Ù. ÀÌ ¸Þ¼Òµå´Â VCS-> parse_urlÀ» È£ÃâÇÏ¿© URLÀ» ÀǹÌÇÕ´Ï´Ù. $ dir-> ÅÂ±× *ÀÌ ¸Þ¼Òµå´Â ÇÚµåÀÇ µð·ºÅ丮¿¡¼ Àç±Í ÀûÀ¸·Î ÀÛµ¿ÇÕ´Ï´Ù * µð·ºÅ丮 ¾ÈÀÇ ¸ðµç ÅÂ±×¿Í Á¶±Ý ´õ ¸¹Àº Á¤º¸¸¦ ¹ÝȯÇÕ´Ï´Ù. ½ÇÁ¦ °è½ÂÀº ÇؽÃÀÇ ÇؽÃÀÔ´Ï´Ù. ù ¹ø° ·¹º§ Çؽô ÅÂ±× À̸§¿¡ Çؽø¦ ÇؽÃÇÕ´Ï´Ù. Áï, µð·ºÅ丮ÀÇ °¢°¢ ¶Ç´Â µð·ºÅ丮 ¾Æ·¡ÀÇ ¸ðµç ´ÜÀÏ ÅÂ±× À̸§À» Å°·Î ³ª¿ÇÕ´Ï´Ù. ÀÌ·¯ÇÑ ÅÂ±× À̸§ÀÌ Å°¿Í ¹öÀü ¹øÈ£°¡ °ªÀ¸·Î ÆÄÀÏ À̸§À» °®´Â ´Ù¸¥ Çؽø¦ ÁöÀûÇÕ´Ï´Ù. $ dir-> urlÀº $ URL Àμö¸¦ »õ·Î ¸¸µé¾îÁÝ´Ï´Ù. $ dir-> content´Â Ŭ·¡½º VCS :: DIR ¶Ç´Â vcs :: ÆÄÀÏ,ÀÌ µð·ºÅ丮ÀÇ ÆÄÀÏ ¹× µð·ºÅ丮¿¡ ÇØ´çÇÕ´Ï´Ù. $ dir-> pathReturns µð·ºÅ丮ÀÇ Àý´ë °æ·Î¸¦ ȸº¹ÇÕ´Ï´Ù. $ dir-> read_dir ($ dir) ÁÖ¾îÁø ÆÄÀÏ ½Ã½ºÅÛ µð·ºÅ丮ÀÇ ³»¿ëÀ» ¸®ÅÏÇÕ´Ï´Ù. ÀÌ°ÍÀº ÇÏÀ§ Ŭ·¡½º¿¡ ´ëÇÑ À¯Æ¿¸®Æ¼ ¸Þ¼Òµå·Î¼ ÀǵµµË´Ï´Ù .Requirements : ¡¤ Perl ¿ä±¸ »çÇ× : ¡¤ Perl.
VCS :: DIR. °ü·Ã ¼ÒÇÁÆ®¿þ¾î