FormValidator :: Simple. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~lyokato/
FormValidator :: Simple. ű×
FormValidator :: Simple. ¼³¸í
´Ü¼øÇÑ Á¦¾à üÀÎÀ¸·Î À¯È¿¼º °Ë»ç FormValidator :: SimpleÀº ConstraintÀÇ °£´ÜÇÑ Ã¼ÀÎÀ¸·Î À¯È¿¼º °Ë»ç¸¦À§ÇÑ Perl ¸ðµâÀÔ´Ï´Ù .Synopsis My $ Query = CGI-> New; $ query-> param (param1 => 'abcd'); $ query-> param (param2 => 12345); $ Äõ¸® -> param (mail1 => lyo.kato@gmail.com '); $ Äõ¸® -> param (mail2 => lyo.kato@gmail.com '); $ Äõ¸® -> param (year => 2005); $ Äõ¸® -> param (month => 11); $ query-> param (day => 27); MY $ result = formValidator :: Simple-> Check ($ query => , param2 => , mail1 => } => , {date => } => ,]); if ($ teleth-> has_error) {my $ tt = template-> new ({include_path => './tmpl'}); $ TT-> ÇÁ·Î¼¼½º ( 'template.html', {result => $ result}); } ÅÛÇø´ ¿¹
ÀÔ·Â ¿À·ù