| ·Î±× :: ¹®¸Æ ¹®¸Æ ·Î±×°¡ÀÖ´Â °£´ÜÇÑ ·Î±ë ÀÎÅÍÆäÀ̽º |
Áö±Ý ´Ù¿î·Îµå |
·Î±× :: ¹®¸Æ ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Arthur Axel Schmidt
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~frew/
·Î±× :: ¹®¸Æ ű×
·Î±× :: ¹®¸Æ ¼³¸í
log :: contextualÀº È®Àå °¡´ÉÇÑ ·Î±ë¿¡ ´ëÇÑ °£´ÜÇÑ Perl ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù. ±×°ÍÀº Á¤¸» ±âº» ·Î°Å, log :: contextual :: simplicelogger¿Í ÇÔ²² ¹øµé·Î Á¦°øµË´Ï´Ù. ±×·¯³ª ÀϹÝÀûÀ¸·Î ÇØ´ç ´ë½Å ½ÇÁ¦ ·Î°Å¸¦ »ç¿ëÇؾßÇÕ´Ï´Ù. ´õ ½É°¢ÇÏÁö¸¸ Áö³ªÄ¡°Ô º¹ÀâÇÏÁö´Â ¾ÊÁö¸¸ ·Î±× :: Dispatchouli (¿¹ : "½Ã³ñ½Ã½º"ÂüÁ¶)ÀÌ ¸ðµâÀÇ ÀÌÀ¯´Â ·Î±ëÀÌ °¡´ÉÇÑ ÇÑ ÅëÁõÀÌ ¾øµµ·Ï ·Î±ë ÀÎÅÍÆäÀ̽º¸¦ Ãß»óÈÇÏ´Â °ÍÀÔ´Ï´Ù. ´Ù¸¥ ·Î°Å°¡ ´Ù¸¥ ·Î°Å. Synopsis´Â log :: conextual qw (: log : dlog set_logger with_logger); log :: contextual :: simplicelogger; log :: log4perl ': Easy'¸¦ »ç¿ëÇϽʽÿÀ. log :: log4perl-> easy_init ($ debug); ³» $ logger = log :: log4perl-> get_logger; set_logger $ logger; log_debug { 'ÇÁ·Î±×·¥ ½ÃÀÛ'}; sub foo {with_logger (log :: conextual :: simpleLogger-> new ({·¹º§ => }) => sub {log_trace { 'foo°¡ ÀÔ·Â µÈ'}; My ($ foo, $ bar) = dlog_trace foo : $ _ "} @_; # ... log_trace {foo left '};}); } foo (); ¹öÀü 1.008·Î ½ÃÀÛÇϱâ log :: Dispatchouli´Â ·Î±× :: »óȲ¿¡ µû¶ó »óÀÚ¿¡¼µµ ÀÛµ¿ÇÕ´Ï´Ù :: »óȲ : log :: conextual qw (: log : dlog set_logger); ·Î±× :: Dispatchouli; ³» $ ld = log :: dispatchouli-> new ({} => 'slrtbrfst', to_stderr => 1, debug => 1,}); set_logger $ ld; log_debug { 'ÇÁ·Î±×·¥ ½ÃÀÛ'}; Á¦Ç°ÀÇ È¨ÆäÀÌÁö
·Î±× :: ¹®¸Æ °ü·Ã ¼ÒÇÁÆ®¿þ¾î