| ·Î±× :: anderror. ´Ù¸¥ ¸ðµâÀÇ ISA Æ÷ÇÔ ¶Ç´Â µ¶¸³ ½ÇÇà Çü ¸ðµâ ·Î±ë ¸ðµâ |
Áö±Ý ´Ù¿î·Îµå |
·Î±× :: anderror. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Thomas Bolioli
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~tbolioli/
·Î±× :: anderror. ű×
·Î±× :: anderror. ¼³¸í
´Ù¸¥ ¸ðµâ ¶Ç´Â µ¶¸³Çü ¸ðµâÀÇ ISA Æ÷ÇÔ¿ë ·Î±ë ¸ðµâ log :: anderror´Â ´Ù¸¥ ¸ðµâÀÇ ISA Æ÷ÇÔÀ»À§ÇÑ ·Î±ë ¸ðµâÀ̰ųª µ¶¸³ ½ÇÇà Çü ¸ðµâ·Î ·Î±× :: anderror¸¦ »ç¿ëÇÕ´Ï´Ù. @isa = qw (log :: anderror); Á¦°øµÈ ¸Þ¼Òµå·Î °ªÀ» ¼³Á¤Çϰųª ·Î±× :: Anderror¸¦ »ç¿ëÇÏ´Â °ÍÀ» ÀØÁö ¸¶½Ê½Ã¿À. log :: anderror :: »ó¼ö qw (: ¸ðµÎ); ³» $ ref_logger = log :: anderror-> new ( 'log_logger'=> log_sub, 'log_service_name'=> 'generic', #ÀÌ ¿É¼ÇÀ» »ç¿ëÇÏ¿© ¾ÛÀÇ ´Ù¸¥ ¸ðµâÀÇ ·Î±× Ç׸ñÀ» º°µµ·Î ÁöÁ¤ÇϽʽÿÀ. 'log_debug_level'=> debug1, # ·Î±× :: anderror :: ofters for 'log_info_level'=> info, # ·Î±× :: anderror :: »ó¼ö ¿¹ : 'log_alwayslog_level'=> alwayslog, # ·Î±× :: Anderror :: »ó¼ö ¿¹¸¦ µé¸é); $ self-> logger (debug3, 'my_sub ('. join ( ',', @ _) ').); # ¿¹¸¦ µé¾î Ç׸ñÀ» ¼ºê ·çƾ¿¡ ·Î±×ÇÕ´Ï´Ù. $ self-> ·Î°Å (alwayslog, '¹º°¡ À߸øµÊ'); #ÀÌ ÀÛ¾÷À» ¼öÇà ÇÑ ÈÄ¿¡ Ç×»ó ¿øÇÏ´Â °æ¿ì ¿À·ù¸¦ ±â·ÏÇÕ´Ï´Ù. $ self-> ¿À·ù ($ error_code, $ error_msg); ¹ß½ÅÀÚ´Â ´ÙÀ½À» ¼öÇàÇÕ´Ï´Ù. My ($ Err, $ msg) = $ obj_ref-> error (); ¿À·ù¸¦ °Ë»öÇÏ·Á¸é Perl ¸ðµâÀÇ ÀÏ¹Ý ·Î±× ¹× ¿À·ù Ŭ·¡½ºÀÔ´Ï´Ù. ¿©±â¿¡ µÎ °³ÀÇ º°°³ÀÇ Á¶°¢ÀÌ ÀÖ½À´Ï´Ù. ¿À·ù ±â´É ¹× ·Î±ë. ÀÌ°ÍÀÌ ÇÊ¿äÇÏÁö ¾ÊÁö¸¸ ÆÐÅ°Áö°¡ »ó¼Ó ÇÒ ¶§ ¿À·ù ±â´ÉÀÌ °¡Àå Æí¸®ÇÕ´Ï´Ù. ±×µéÀº ÁÖ·Î ÆíÀǸ¦ À§Çؼ "ÁÁÀº"ÇൿÀ» ÃËÁøÇÕ´Ï´Ù. ·Î±ë ±â´ÉÀº ´õ º¹ÀâÇÑ ºÎºÐÀ̸ç ÄÚµåÀÇ ´ëºÎºÐÀÔ´Ï´Ù. ·Î±ë ±â´ÉÀ» »ç¿ëÇÏ´Â À͸í ÇÏÀ§ ·çƾÀ» ÂüÁ¶ÇÏ´Â À͸í ÇÏÀ§ ·çƾÀ» »ç¿ëÇÏ´Â À͸í ÇÏÀ§ ·çƾÀ» »ç¿ëÇÏ´Â À͸í ÇÏÀ§ ·çƾÀ» »ç¿ëÇÏ¿© ¿À·ù Ãâ·ÂÀ» ¿øÇÏ´Â À§Ä¡·Î ÇâÇÏ°ÔÇÕ´Ï´Ù. ÀÌ Å¬·¡½º ¾Æ·¡¿¡ ¸î °¡Áö »ùÇà Àá¼öÁ¤ÀÌ ÀÖ½À´Ï´Ù. WARN ()À» ÅëÇØ stderr¿¡ ´ëÇÑ ±âº» Ãâ·Â. µð¹ö±× »ó¼ö´Â Ç×»ó> = 0ÀÌ°í alwayslog ¹× Á¤º¸ À¯Çü »ó¼ö´Â Ç×»ó ¿ä±¸ »çÇ×ÀÌ ÇÊ¿äÇÕ´Ï´Ù. ¡¤ Perl.
·Î±× :: anderror. °ü·Ã ¼ÒÇÁÆ®¿þ¾î