¿¹¿Ü :: Like

¿¹¿Ü À¯»ç ¿À·ù È®ÀÎ
Áö±Ý ´Ù¿î·Îµå

¿¹¿Ü :: Like ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Other/Proprietary Li...
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Ziya Suzen
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • 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 °ü·Ã ¼ÒÇÁÆ®¿þ¾î

filterunit.

´Â ¸í·É Çà ÇÁ·Î±×·¥¿¡ ´ëÇØ ´ÜÀ§ Å×½ºÆ®¸¦ °í¾È ÇÒ ¼öÀÖ°ÔÇÕ´Ï´Ù. ...

125

´Ù¿î·Îµå