¹è¿ :: ºñ±³¹è¿ :: ºñ±³´Â ¹è¿À» ºñ±³ÇϱâÀ§ÇÑ PERL È®ÀåÀÚÀÔ´Ï´Ù. | |
Áö±Ý ´Ù¿î·Îµå |
¹è¿ :: ºñ±³ ¼øÀ§ ¹× ¿ä¾à
±¤°í
- ƯÇã:
- Perl Artistic License
- °¡°Ý:
- FREE
- °Ô½ÃÀÚ À̸§:
- Dave Cross
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~davecross/Array-Compare-1.14/lib/Array/Compare.pm
¹è¿ :: ºñ±³ ű×
¹è¿ :: ºñ±³ ¼³¸í
Array :: Compare´Â ¹è¿À» ºñ±³ÇϱâÀ§ÇÑ Perl È®ÀåÀÚÀÔ´Ï´Ù. ½Ã³ñ½Ã½º Array :: Compare; MY $ COMP1 = ¹è¿ :: ºñ±³ -> NEW; $ comp-> sep ( '|'); $ comp-> ½ºÅµ ({3 => 1, 4 => 1}); $ Comp-> °ø¹é (0); $ Comp-> ÄÉÀ̽º (1); MY $ COMP2 = ARRAY :: ºñ±³ -> NEW (sep => ', whiteSpace => 0, case => 1, skip => {3 => 1, 4 => 1}); My @ arr1 = 0 .. 10; My @ arr2 = 0 .. 10; $ comp1-> ºñ±³ (@ arr1, @ arr2); $ comp2-> ºñ±³ (@ arr1, @ arr2); µÎ °³ÀÇ ¹è¿ÀÌ ÀÖ°í µ¿ÀÏÇϰųª ´Ù¸¥Áö ¿©ºÎ¸¦ ¾Ë°í ½Í´Ù¸é ¹è¿ :: ºñ±³°¡ ´ç½Å¿¡°Ô À¯¿ëÇÕ´Ï´Ù. ¸ðµç ºñ±³°¡ ºñ±³±â¸¦ ÅëÇØ ¼öÇàµË´Ï´Ù. ¹°Ã¼. °¡Àå °£´ÜÇÑ »ç¿ë¹ý¿¡¼´Â ´ÙÀ½°ú °°ÀÌ ºñ±³±â °´Ã¼¸¦ ¸¸µé°í »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù. my @ arr1 = 0 .. 10; My @ arr2 = 0 .. 10; MY $ COMP = ARRAY :: ºñ±³ -> NEW; if ($ comp-> ºñ±³ (@ arr1, @ arr2)) {print "¹è¿Àº samen"ÀÔ´Ï´Ù. } else {print "¹è¿Àº ´Ù¸¨´Ï´Ù"; } µÎ ¹è¿À» ºñ±³ ¹æ¹ý¿¡ ´ëÇÑ ÂüÁ¶¸¦ Àü´ÞÇÕ´Ï´Ù. INTRINALY ºñ±³±â´Â Á¶ÀÎÀ» »ç¿ëÇÏ¿© µÎ ¹è¿À» ¹®ÀÚ¿·Î ÄÑ°í EQ¸¦ »ç¿ëÇÏ¿© ¹®ÀÚ¿À» ºñ±³ÇÏ¿© µÎ ¹è¿À» ºñ±³ÇÕ´Ï´Ù. ÇÕ·ù µÈ ¹®ÀÚ¿¿¡¼ ¿ø·¡ ¹è¿ÀÇ ¿ä¼Ò´Â ^ g ¹®ÀÚ·Î ºÐ¸®µË´Ï´Ù. ÀÌ·Î ÀÎÇØ ¹è¿ µ¥ÀÌÅÍ¿¡ µÎ °³ÀÇ ´Ù¸¥ ¹è¿À» µ¿ÀÏÇÑ String.¿¡¼ º¯È¯ ÇÒ ¼ö ÀÖµµ·Ï ^ g ¹®ÀÚ°¡ Æ÷ÇԵǾî ÀÖÀ¸¹Ç·Î ¹®Á¦°¡ ¹ß»ýÇÒ ¼ö ÀÖÀ¸¹Ç·Î ¹®Á¦°¡ ¹ß»ýÇÒ ¼ö ÀÖ½À´Ï´Ù. ÇÔ¼ö MY $ COMP = ARRAY :: ºñ±³ -> »õ (sep => '|'); ±âÁ¸ÀÇ ºñ±³±â ¿ÀºêÁ§Æ®¿¡ ´ëÇÑ Seperator¸¦ º¯°æÇÏ¿© $ Comp-> SEP ( '|'); ÀϹÝÀûÀ¸·Î ±¸ºÐ ±âÈ£ ¹®ÀÚ¸¦ ¼±ÅÃÇؾßÇÕ´Ï´Ù. µ¥ÀÌÅÍ°¡ ³ªÅ¸³ªÁö ¾ÊÀ» °ÍÀÔ´Ï´Ù. ºñ±³¸¦ ÇÒ ¶§ ¹è¿ÀÇ ¿ä¼Ò ³»ÀÇ °ø¹éÀÌ Áß¿äÇÏ°Ô °í·ÁµÇ¾î¾ßÇÏ´ÂÁö ¿©ºÎ¸¦ Á¦¾î ÇÒ ¼ö ÀÖ½À´Ï´Ù. ±âº»°ªÀº ¸ðµç °ø¹éÀÌ Áß¿äÇÏ´Ù´Â °ÍÀÔ´Ï´Ù. ´ë¾ÈÀº ¸ðµç ¿¬¼ÓÀûÀÎ Èò»ö °ø¹é ¹®ÀÚ°¡ ºñ±³ÀÇ ÀÏÀ» À§ÇØ ´ÜÀÏ °ø°£À¸·Î º¯È¯ µÉ °ÍÀÔ´Ï´Ù. ´Ù½Ã ¸»Çϸé, ºñ±³±â °´Ã¼¸¦ ¸¸µé ¶§ ÄÑÁú ¼ö ÀÖ½À´Ï´Ù. My $ comp = array :: specival-> »õ (WhiteSpace => 0); ¶Ç´Â ±âÁ¸ °³Ã¼¸¦ º¯°æÇÏ¿© $ Comp-> °ø¹é (0); ¶ÇÇÑ ºñ±³¿¡¼ µ¥ÀÌÅÍÀÇ °æ¿ì°¡ Áß¿äÇÑ Áö ¿©ºÎ¸¦ Á¦¾îÇϽʽÿÀ. ±âº»°ªÀº µ¥ÀÌÅÍÀÇ °æ¿ì¸¦ °í·ÁÇÑ´Ù´Â °ÍÀÔ´Ï´Ù. ÀÌ°ÍÀº »õ·Î¿î ºñ±³±â °´Ã¼¸¦ ¸¸µé ¶§ Ç¥ÁØ ¹æ¹ýÀ¸·Î º¯°æ µÉ ¼ö ÀÖ½À´Ï´Ù. My $ comp = array :: compan-> new (case => 0); ±âÁ¸ °´Ã¼¸¦ º¯°æÇÏ¿© $ Comp-> ÄÉÀ̽º (0); in À§¿¡¼ ¼³¸íÇÑ °£´ÜÇÑ ºñ±³¿¡ Ãß°¡ÇϽʽÿÀ (¹è¿ÀÌ µ¿ÀÏÇÏ°í falseÀ̸é true¸¦ ¹ÝȯÇÕ´Ï´Ù.) µÎ ¹è¿°£¿¡ ´Ù¸¥ ¿ä¼Ò À妽º°¡ Æ÷ÇÔ µÈ ¸ñ·ÏÀ» ¹ÝȯÇÏ´Â Àüü ºñ±³°¡ ÀÖ½À´Ï´Ù. ¹è¿ÀÌ µ¿ÀÏÇÑ °æ¿ì ºó ¸ñ·ÏÀ» ¹ÝȯÇÕ´Ï´Ù. ½ºÄ®¶ó ÄÁÅؽºÆ®¿¡¼ Àüü ºñ±³´ÂÀÌ ¸ñ·ÏÀÇ ±æÀ̸¦ ¹ÝȯÇÕ´Ï´Ù (Áï, ´Ù¸¥ ¿ä¼ÒÀÇ ¼ö). µÎ °¡Áö ¹æ¹ýÀ¸·Î Àüü ºñ±³¿¡ ¾×¼¼½º ÇÒ ¼ö ÀÖ½À´Ï´Ù. ù°, deffull Ư¼ºÀÌ ÀÖ½À´Ï´Ù. ÀÌ°ÍÀÌ true ÀÎ °æ¿ì, ºñ±³ ¸Þ¼Òµå°¡ È£Ãâ µÉ ¶§¸¶´Ù ¼öÇàµÇ´Â °æ¿ì Àü¾× ºñ±³. MY $ COMP = ¹è¿ :: ºñ±³ -> NEW (DEFFULL => 1); $ comp-> ºñ±³ (@ arr1, @ arr2); # Àüü ºñ±³ $ Comp-> Deffull (0); $ comp-> ºñ±³ (@ arr1, @ arr2); # °£´ÜÇÑ ºñ±³ $ Comp-> Deffull (1); $ comp-> ºñ±³ (@ arr1, @ arr2); # Àüü ºñ±³°¡ ÂïÈ÷¸é Àüü ºñ±³ ¹æ¹ý¿¡ ¾×¼¼½º ÇÒ ¼ö ÀÖ½À´Ï´Ù $ comp-> full_compare (@ arr1, @ arr2); ´ëĪÀ» À§ÇØ °£´ÜÇÑ ºñ±³¸¦ È£ÃâÇÏ´Â µ¥ »ç¿ëÇÒ Á÷Á¢ÀûÀÎ ¹æ¹ýÀÌ ÀÖ½À´Ï´Ù. $ comp-> simple_compare (@ arr1, @ arr2); ÃÖÁ¾ ÇÕº´ÁõÀº ºñ±³¿¡¼ ¿ä¼Ò¸¦ °Ç³Ê ¶Û ¼öÀÖ´Â ´É·ÂÀÔ´Ï´Ù. µÎ °³ÀÇ ¹è¿ÀÌ Æ¯Á¤ ¿ä¼Ò°¡ Ç×»ó ´Ù¸¥ °ÍÀÌ ´Ù¸¦ °ÍÀÌÁö¸¸,ÀÌ ¿ä¼Ò¸¦ ¹«½ÃÇÏ´Â ¹è¿À» ºñ±³ÇÏ·Á´Â °æ¿ì ¹è¿ Á¶°¢À» º¹¿ëÇÏÁö ¾Ê°í ¹è¿ :: ºñ±³ ·ÎÀÌ ÀÛ¾÷À» ¼öÇà ÇÒ ¼ö ÀÖ½À´Ï´Ù. ÀÌ·¸°ÔÇÏ·Á¸é ºñ±³±â °´Ã¼¿¡´Â Çؽÿ¡ ´ëÇÑ ÂüÁ¶ ÀÎ SkipÀ̶ó´Â ¼±ÅÃÀû Ư¼ºÀÌ ÀÖ½À´Ï´Ù. ÀÌ ÇؽÃÀÇ Å°´Â ¹è¿ ¿ä¼ÒÀÇ À妽ºÀÌ¸ç °ªÀº °Ç³Ê ¶Û ¿ä¼Ò¿¡ ´ëÇÑ ÁøÁ¤ÇÑ °ªÀ̾î¾ßÇÕ´Ï´Ù. ¿¹¸¦ µé¾î µÎ °³ÀÇ ¹è¿À» ºñ±³ÇÏ·Á¸é ¿ä¼Ò 2¿Í 4ÀÇ °ªÀ» ¹«½ÃÇÏ°íÀÚ ÇÒ ¼ö ÀÖ½À´Ï´Ù. ÀÌ¿Í °°Àº °Í : My % skip = (2 => 1, 4 => 1); my @a = (0, 1, 2, 3, 4, 5); my @b = (0, 1, x, 3, x, 5); MY $ COMP = ARRAY :: ºñ±³ -> »õ (SKIP => % SKIP); $ comp-> ºñ±³ (@a, @b); ÀÌ·¸°ÔÇϸé Áø½ÇÀ» ¹«½ÃÇÏ°í CoressÀÇ Comparator °´Ã¼¸¦ »ý¼º ÇÑ Compair °´Ã¼¸¦ »ý¼º ÇÑ ¿À» ¸í½Ã ÀûÀ¸·Î ¹«½ÃÇÏ¸é¼ ³ªÁß¿¡ Çϳª¾¿ Ãß°¡ ÇÒ ¼ö ÀÖ½À´Ï´Ù. comp-> ½ºÅµ ({1 => 1, 2 => 1}); ¶Ç´Â : % skip = (1 => 1, 2 => 2); $ comp-> °Ç³Ê ¶Ù±â (% °Ç³Ê ¶Ù±â); ºñ±³±â¸¦ Àç¼³Á¤ÇÏ¿© ´õ ÀÌ»ó ¿ä¼Ò¸¦ °Ç³Ê ¶Û ¼ö ¾øµµ·Ï °Ç³Ê ¶Ù±â Çؽø¦ ºó Çؽ÷Π¼³Á¤ÇϽʽÿÀ. $ comp-> skip ({}); ÇϳªÀÇ ¹è¿ÀÌ ´Ù¸¥ ¿ä¼ÒÀÇ ¼ø¿ÀÎÁö ¿©ºÎ¸¦ È®ÀÎÇÒ ¼ö ÀÖ½À´Ï´Ù. Áï, µ¿ÀÏÇÑ ¿ä¼Ò¸¦ Æ÷ÇÔÇ쵂 ´Ù¸¥ ¼ø¼·Î. IF ($ comp-> perm (@a, @b) {print "¹è¿Àº permsn"; else {print "nope. ¹è¿Àº ¿ÏÀüÈ÷ ´Ù¸¨´Ï´Ù";}ÀÌ °æ¿ì °ø¹é°ú »ç·ÊÀÇ °ªÀº ¿©ÀüÈ÷ »ç¿ëµÇÁö¸¸ °Ç³Ê ¶Ý´Ï´Ù. Èñ¸ÁÀûÀ¸·Î, ¸í¹éÇÑ ÀÌÀ¯·Î ¹«½ÃµË´Ï´Ù. ÀçÃæÀü : ¡¤ perl
¹è¿ :: ºñ±³ °ü·Ã ¼ÒÇÁÆ®¿þ¾î
http :: WebDav.
HTTP :: WebDAV´Â ³×¿Â HTTP ¹× WebDAV Ŭ¶óÀ̾ðÆ® ¶óÀ̺귯¸®¿¡ ´ëÇÑ Perl ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù. ...
277