ÆÄÀÏ :: Dircompare.

FILE :: DIRCOMPARE´Â ÄݹéÀ» »ç¿ëÇÏ¿© µÎ µð·ºÅ丮¸¦ ºñ±³ÇÏ´Â PERL ¸ðµâÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

ÆÄÀÏ :: Dircompare. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Gavin Carr
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~gavinc/File-DirCompare-0.3/DirCompare.pm

ÆÄÀÏ :: Dircompare. ű×


ÆÄÀÏ :: Dircompare. ¼³¸í

FILE :: DIRCOMPARE´Â ÄݹéÀ» »ç¿ëÇÏ¿© µÎ µð·ºÅ丮¸¦ ºñ±³ÇÏ´Â PERL ¸ðµâÀÔ´Ï´Ù. FILE :: DIRCOMPARE´Â Callbacks.Synopsis »ç¿ë ÆÄÀÏ :: Dircompare »ç¿ëÀ» »ç¿ëÇÏ¿© µÎ °³ÀÇ µð·ºÅ丮¸¦ ºñ±³ÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. # Simple Diff -r - ºê¸®ÇÁ ´ëü ÆÄÀÏ :: Basename; ÆÄÀÏ :: Dircompare-> ºñ±³ ($ dir1, $ dir2, sub {my ($ a, $ b) = @_; if (! $ b) {printf "% s : % sn", dirname ($ a ), basename ($ a);} e elsif (! $ a) % s : % sn ", dirname ($ b), basename ($ b);} else {print"ÆÄÀÏ $ a ¹× $ b differenn ";}}); # »èÁ¦ µÈ / Ãß°¡ / ¼öÁ¤ µÈ ¸ñ·Ï°ú °°Àº ¹öÀü - ÄÁÆ®·Ñ My (@Listing, @Modified); # °á°ú ÆÄÀÏÀ» ¼öÁýÇÏ·Á¸é Æó¼â¸¦ »ç¿ëÇϽʽÿÀ :: dircompare-> ºñ±³ ( 'old_tree', 'new_tree'), sub {my ($ a, $ b) = @_; if (! $ b) {Ǫ½Ã @Listing, "D $ A"; } Elsif (! $ a) {push @listing, "$ b"; } else {if (-f $ a -f $ b) {Ǫ½Ã @Listing, m $ b "; @modified, $ b Ǫ½Ã } else {# ÇϳªÀÇ ÆÄÀÏ, ÇϳªÀÇ µð·ºÅ丮 - »èÁ¦·Î Ãë±Þ + Push @Listing, "D $ A"; Ǫ½Ã @Listing, "A $ B"; }}}); file :: dircompare´Â µÎ µð·ºÅ丮°£¿¡ '´Ù¸¥'ÀÎ ¸ðµç ÆÄÀÏ¿¡ ´ëÇØ È£Ãâ µÈ ¸ðµç ÆÄÀÏ¿¡ ´ëÇØ È£Ãâ µÈ µÎ µð·ºÅ丮¿Í Çϳª ¶Ç´Â ´Ù¸¥ µð·ºÅ丮¿¡¸¸ Á¸ÀçÇÏ´Â ÆÄÀÏ¿¡ ´ëÇØ È£ÃâµË´Ï´Ù ( '°íÀ¯ ÇÑ 'ÆÄÀÏ). ÆÄÀÏ :: DIRCOMPARE´Â ´ÙÀ½ ¼­¸í°ú ÇÔ²² ´ÜÀÏ public ºñ±³ () ¸Þ¼­µå°¡ ÀÖ½À´Ï´Ù. ÆÄÀÏ :: DIRCOMPARE-> ºñ±³ ($ dir1, $ dir2, $ sub, $ opts); óÀ½ ¼¼ Àμö°¡ ÇÊ¿äÇÕ´Ï´Ù - $ DIR1 ¹× $ DIR2´Â ºñ±³ÇÒ µÎ µð·ºÅ丮ÀÇ °æ·ÎÀ̸ç $ SUB´Â ¸ðµç °íÀ¯ ¶Ç´Â ´Ù¸¥ ÆÄÀÏ¿¡ ´ëÇØ È£Ãâ µÈ ¼­ºê ·çƾ ÂüÁ¶ÀÔ´Ï´Ù. $ opts´Â ¿É¼ÇÀÇ ¼±ÅÃÀû hashrefÀÔ´Ï´Ù. ¾Æ·¡ ¿É¼ÇÀ» ÂüÁ¶ÇϽʽÿÀ. Á¦°øµÈ ¼­ºê ·çƾÀº ¸ðµç °íÀ¯ ÇÑ ÆÄÀÏ¿¡ ´ëÇØ È£ÃâµÇ°í ´ÙÀ½ ¼­¸í : $ sub -> ($ file1, $ file2)¿Í ÇÔ²² ¸ðµç °íÀ¯ ÇÑ ÆÄÀÏ¿¡ ´ëÇØ ¿©±â¼­ $ file1 ¹× $ file2´Â µÎ ÆÄÀÏÀÇ °æ·ÎÀÔ´Ï´Ù. 'µ¶Æ¯ÇÑ'ÆÄÀÏÀÇ °æ¿ì ÆÄÀÏÀÌ ÇϳªÀÇ µð·ºÅ丮¿¡¸¸ Á¸ÀçÇÏ´Â °æ¿ì, ¼­ºê ·çƾÀº $ sub -> ($ file1, undef) $ sub -> (Undef, $ file2)¿¡ ´ëÇÑ ´Ù¸¥ Àμö 'undef'IE·Î È£ÃâµË´Ï´Ù. ¸ÕÀú $ FILE1ÀÌ ÁÖ¾îÁø ù ¹ø° µð·ºÅ丮¿¡¸¸ Á¸ÀçÇÏ¸ç µÎ ¹ø°´Â $ FILE2°¡ ÁÖ¾îÁø µÎ ¹ø° µð·ºÅ丮¿¡¸¸ Á¸ÀçÇÑ´Ù°í Ç¥½ÃÇÕ´Ï´Ù ($ dir2) .requirements : ¡¤ perl ¿ä±¸ »çÇ× : ¡¤ Perl.


ÆÄÀÏ :: Dircompare. °ü·Ã ¼ÒÇÁÆ®¿þ¾î