| À¯È¿¼º °Ë»ç±â :: »ç¿ëÀÚ Á¤ÀÇ »ç¿ëÀÚ ÀÔ·ÂÀ» ½±°Ô °ËÁõÇÕ´Ï´Ù |
Áö±Ý ´Ù¿î·Îµå |
À¯È¿¼º °Ë»ç±â :: »ç¿ëÀÚ Á¤ÀÇ ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~kimoto/
À¯È¿¼º °Ë»ç±â :: »ç¿ëÀÚ Á¤ÀÇ Å±×
À¯È¿¼º °Ë»ç±â :: »ç¿ëÀÚ Á¤ÀÇ ¼³¸í
Validator :: »ç¿ëÀÚ Á¤ÀÇ´Â »ç¿ëÀÚ ÀÔ·ÂÀ» ½±°Ô °ËÁõ ÇÒ ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. ÀÌ ±â´ÉÀº ´ÙÀ½°ú °°Àº ±â´ÉÀÔ´Ï´Ù. Á¦¾à Á¶°Ç ±â´É .- À߸øµÈ ¸Å°³ º¯¼ö °ª¿¡ ´ëÇÑ ¿À·ù ¸Þ½ÃÁö¸¦ ¼³Á¤ÇÒ ¼ö ÀÖ½À´Ï´Ù. ¸Þ½ÃÁöÀÇ ¼ø¼°¡ À¯ÁöµË´Ï´Ù .- Áö¿ø ¶Ç´Â Condtion Á¦¾à Á¶°Ç, Negativate Constraint.synopsys »ç¿ë À¯È¿¼º °Ë»ç±â :: »ç¿ëÀÚ Á¤ÀÇ; MY $ VC = À¯È¿¼º °Ë»ç±â :: »ç¿ëÀÚ Á¤ÀÇ -> »õ·Î ¸¸µé±â; MY $ DATA = {¿¬·É => 19, À̸§ => 'KEN SUZUKI'}; $ j $ rule = , name => {message =>'name => @ @ not_blank " ±æÀÌ 1 ~ 5 '} => }], °¡°Ý => ]; MY $ RETENT = $ VC-> À¯È¿¼º °Ë»ç ($ µ¥ÀÌÅÍ, $ ±ÔÄ¢); ($ RETETHOW-> IS_OK) {($ RETETH-> HAS_MISSING) {MY $ NESSING_PARAMS = $ RETERAMED> MEASE_PARAMS; } ($ result-> has_invalid) {my $ messages = $ teflex-> messages_to_hash; }} My $ valid_data = $ result-> µ¥ÀÌÅÍ; MY $ RAW_DATA = $ RETERION-> raw_data; MY $ LOOSE_DATA = $ RETETH-> LOOSE_DATA; Á¦Ç°ÀÇ È¨ÆäÀÌÁö
À¯È¿¼º °Ë»ç±â :: »ç¿ëÀÚ Á¤ÀÇ °ü·Ã ¼ÒÇÁÆ®¿þ¾î