¿¹¿Ü :: Like ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Other/Proprietary Li...
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~ziya/
¿¹¿Ü :: Like ű×
¿¹¿Ü :: Like ¼³¸í
¿¹¿Ü À¯»ç ¿À·ù Á¡°Ë TRY-CACTH ¸Þ¼Òµå¸¦ »ç¿ëÇÏ´Â ´ë½Å ¿¹¿Ü :: PERL ¸ðµâÀº ÀÌÀüÀÇ ORTER-VALUECH-CHECK ¸Þ¼Òµå¿¡ ÀÇÁ¸ÇÕ´Ï´Ù. ±×·¯³ª »ç¿ëÀÚ°¡ ¿¹¿Ü¸¦ ó¸® ÇÒ ¶§¿Í ¿À·ù À¯ÇüÀ» ½Äº° ÇÒ ¼öÀÖ´Â ±âȸ¸¦ Á¦°øÇÏ°í ¿À·ù¸¦ ½×¾Æ µÎ½Ê½Ã¿À. #synopsis #package ÆÄÀÏ : ÆÐÅ°Áö ¿¹¿Ü :: LikEtest; ¿¹¿Ü¸¦ »ç¿ëÇϽʽÿÀ :: myException => 'ÀÌ°ÍÀº ³ªÀÇ ¿¹¿ÜÀÔ´Ï´Ù.'; ¾ö°ÝÇÑ »ç¿ë; sub new {my $ this = shift; ³» $ class = ref ($ this) || $ this; ³» $ self = Ãູ {}, $ class; $ self¸¦ µ¹·ÁÁÝ´Ï´Ù. } Sub FAILS {ERR (myException, '¿À·ùó·³ ´À²¸Áö´Â'); ¹ÝÇ°; } #program ÆÄÀÏ : ¿¹¿Ü :: LikEtest; $ a = »õ·Î¿î ¿¹¿Ü :: liketest; $ r = $ a-> fails (); ($ r) {# ¿À·ù°¡ °¨¼ÒÇÏÁö ¾Ê´Â ÇÑ! if ($ a-> errno () eq myException) {warn myException, "\ n"; } else {die $ a-> errstr (); }} # Á¤ÀÇ µÈ ¿¹¿Ü (¶Ç´Â ¿À·ù ID)¸¦ ¸ðµÎ ³ª¿ÇÏ·Á¸é ¿¹¿Ü :: LIKE; ¿¹¿Ü¿¡ ´ëÇØ "$ _ \ n"À» Àμâ :: LIKE-> list_defined_exceptions (); ¿ä±¸ »çÇ× : ¡¤ Perl.
¿¹¿Ü :: Like °ü·Ã ¼ÒÇÁÆ®¿þ¾î