B :: Lexinfo.

B :: LexInfo´Â ¼­ºê ·çƾ ¾îÈÖ º¯¼ö¿¡ ´ëÇÑ Á¤º¸¸¦ º¸¿©ÁÖ´Â Perl ¸ðµâÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

B :: Lexinfo. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Doug MacEachern
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~gozer/mod_perl-1.30/lib/Apache/Status.pm

B :: Lexinfo. ű×


B :: Lexinfo. ¼³¸í

B :: Lexinfo´Â ¼­ºê ·çƾ ¾îÈÖ º¯¼ö¿¡ ´ëÇÑ Á¤º¸¸¦ º¸¿©ÁÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. B :: Lexinfo´Â ¼­ºê ·çƾ ¾îÈÖ º¯¼ö¿¡ ´ëÇÑ Á¤º¸¸¦ º¸¿©ÁÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. Synopsis »ç¿ë B :: Showlex (); MY $ LEXI = B :: SHOWLEX-> NEW; PERLÀº ¼­ºê ·çƾ ³»ÀÇ PADLIST ³»¿¡ ¾îÈÖ º¯¼ö À̸§°ú °ªÀ» ÀúÀåÇÕ´Ï´Ù. ƯÁ¤ Lexicals´Â º¯¼ö°¡ "¹üÀ§¸¦ ¹þ¾î³µ½À´Ï´Ù."°¡ÈÄ¿¡ ƯÁ¤ ¼Ó¼ºÀ» À¯ÁöÇÕ´Ï´Ù. ¿¹¸¦ µé¾î, ½ºÄ®¶ó°¡ ¹®ÀÚ¿­ °ªÀÌ ÇÒ´çµÇ¸éÀÌ °ªÀº º¯¼ö°¡ ¹üÀ§¸¦ ¹þ¾î³­ ÈÄ¿¡µµ ³²¾Æ ÀÖÁö¸¸ ´ÙÀ½¿¡ ÇÒ´ç µÈ ´ÙÀ½¿¡ ÀçÁ¤Àǵ˴ϴÙ. ¾îÈÖ ¹è¿­ ¹× Çؽô ƯÁ¤ ½ÃÁ¡¿¡¼­ ÀúÀåµÈ ÃÖ´ë Ç׸ñÀÇ ÀúÀå °ø°£À» À¯ÁöÇÕ´Ï´Ù.ÀÌ ¸ðµâÀºÀÌ Á¤º¸¸¦ ±â·ÏÇÏ´Â ¹æ¹ýÀ» Á¦°øÇϰųª µÎ °³ÀÇ "½º³À ¼¦"À» ºñ±³ÇÒ ¼ö ÀÖ½À´Ï´Ù. ÀÌ·¯ÇÑ ½º³À ¼¦¿¡¼­ ÇнÀ µÈ Á¤º¸´Â ¿©·¯ °¡Áö ¹æ¹ýÀ¸·Î °¡Ä¡°¡ ÀÖ½À´Ï´Ù .MethodsmnewCreate »õ B :: LexInfo °´Ã¼ : My $ Lexi = B :: Lexinfo-> »õ·Î ¸¸µé±â; ´ÜÀÏ ÇÏÀ§ ·çƾ¿¡¼­ Padlist ½º³À ¼¦ : My $ Info = $ lexi-> cvlexinfo ( 'foo :: bar'); ÁÖ¾îÁø ÆÐÅ°ÁöÀÇ °¢ ¼­ºê ·çƾ¿¡ ´ëÇÑ padlist ½º³À ¼¦ ¸ñ·Ï : my $ info = $ Lexi-> stash_cvlexinfo ( 'foo'); dumperreturn stringified padlist snapshot¿¡ ´ëÇÑ ÂüÁ¶ : $ {$ Lexi-> Dumper ($ Á¤º¸)} diffcompare µÎ °³ÀÇ padlist ½º³À ¼¦À» ¹ÝȯÇÏ°í Â÷À̸¦ ¹ÝȯÇϽʽÿÀ : my $ before = $ Lexi-> stash_cvlexinfo (__ ÆÐÅ°Áö __); ... ÀϺΠÄڵ尡 $ Lexi-> stash_cvlexinfo (__ ÆÐÅ°Áö __)¸¦ ½ÇÇàÇϽʽÿÀ. MY $ diff = b :: lexinfo-> diff ($ Àü, $ ÈÄ); $$ $$ diff; Âü°í :ÀÌ ÇÔ¼ö´Â diff -u ¸í·ÉÀ» »ç¿ëÇÕ´Ï´Ù. $ B :: LexInfo :: tmpdir :: diffcmd¸¦ lexinfo.pm.cvrundifftakeÀÇ ±âº»°ª ÀÌ¿ÜÀÇ °ªÀ¸·Î ±¸¼ºÇؾßÇÕ´Ï´Ù. ¼­ºê ·çƾÀÇ padlist ½º³À ¼¦, ÁÖ¾îÁø Àμö·Î ¼­ºê ·çƾÀ» ½ÇÇàÇϽʽÿÀ , ´Ù¸¥ ½º³À ¼¦À» °¡Á® ¿Í¼­ ½º³À ¼¦ÀÇ diff¸¦ ¹ÝȯÇÕ´Ï´Ù. MY $ diff = $ Lexi-> cvrundiff ( 'foo :: bar', "arg1", $ arg2); $$ diff Àμâ; Àüü ¿¹Á¦ : ÆÐÅ°Áö foo; B :: LexInfo ()¸¦ »ç¿ëÇϽʽÿÀ. ÇÏÀ§ Ç¥½Ã ÁÙ {My ($ string) = @_; } My $ Lexi = B :: Lexinfo-> New; MY $ diff = $ Lexi-> cvrundiff ( 'foo :: bar', "¹®ÀÚ¿­"); $$ diff; »ý»ê : --- /tmp/b_lexinfo_1848.beven 2899 ++ + /tmp/b_lexinfo_1848.after mon monj 28:411999 @@ -2,8 + 2,10 @@ { 'foo :: bar'=> { '$ string'=> {- 'type'=> 'null', - 'null'=> '0x80efd58'+ 'type'=> 'pv' , + 'len'=> 9, + 'pv'=> 'string', + 'cur'=> 8}, '__special__1'=> { 'type'=> 'null', ¿ä±¸ »çÇ× : ¡¤ perl ¿ä±¸ »çÇ× : ¡¤ Perl.


B :: Lexinfo. °ü·Ã ¼ÒÇÁÆ®¿þ¾î