| B :: Lexinfo. B :: LexInfo´Â ¼ºê ·çƾ ¾îÈÖ º¯¼ö¿¡ ´ëÇÑ Á¤º¸¸¦ º¸¿©ÁÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
B :: Lexinfo. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- 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. °ü·Ã ¼ÒÇÁÆ®¿þ¾î