µ¥ÀÌÅÍ :: cgiform.

µ¥ÀÌÅÍ :: CGIFormÀº ¾ç½Ä µ¥ÀÌÅÍ ÀÎÅÍÆäÀ̽º°¡ÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

µ¥ÀÌÅÍ :: cgiform. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Tim Wilde
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~twilde/Data-CGIForm-0.4/CGIForm.pm

µ¥ÀÌÅÍ :: cgiform. ű×


µ¥ÀÌÅÍ :: cgiform. ¼³¸í

µ¥ÀÌÅÍ :: CGIFormÀº ¾ç½Ä µ¥ÀÌÅÍ ÀÎÅÍÆäÀ̽º°¡ÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. µ¥ÀÌÅÍ :: CGIFormÀº ¾ç½Ä µ¥ÀÌÅÍ ÀÎÅÍÆäÀ̽º°¡ÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù .Data::CGiformÀº CGI ¾ç½Ä µ¥ÀÌÅ͸¦ ±¸¹® ºÐ¼®ÇÏ°í ó¸®ÇÏ´Â ¶Ç ´Ù¸¥ ¹æ¹ýÀÔ´Ï´Ù. ÀÌ ¸ðµâÀÇ ÁÖ µ¿±â ºÎ¿©´Â ¿©·¯ °ªÀ» ó¸® ÇÒ ¼öÀÖ´Â °£´ÜÇÑ »ç¾ç ±â¹Ý À¯È¿¼º °Ë»ç±â¿´½À´Ï´Ù.ÀÌ ¸ðµâÀ» »ç¿ëÇÏÁö ¾ÊÀ¸·Á´Â °ÍÀº ¾Æ´Õ´Ï´Ù. CGI :: À¯È¿¼º °Ë»ç´Â ÀÌ·¯ÇÑ Á¾·ùÀÇ ÀÛ¾÷À» ¿Ï·áÇÏ´Â µ¥ ÈξÀ ´õ ¸¹Àº ±â´ÉÀÌ ¿Ï·áµÇ¾ú½À´Ï´Ù. ±×·± ´ÙÀ½ ¿Ö ÀÌ°ÍÀÌ CPAN¿¡ ÀÖ´ÂÁö ¹°¾îº¼ ¼ö ÀÖ½À´Ï´Ù. ½Ã³ñ½Ã½º ³» % spec = (username => qr / ^ ( +) $ /, ¾ÏÈ£ => {regexp => QR / ^ () $ /, filter => ,}, À̸ÞÀÏ => {regexp => qr / ^ ( $ /, filter => requify_domain, ¼±ÅÃÀû => 1, errors => {empty => 'À̸ÞÀÏ ÁÖ¼Ò¸¦ ÀÔ·ÂÇÏÁö ¾Ê¾Ò½À´Ï´Ù.', À߸ø => '³ª»Û : "" ',}, extra_test => check_email_addr,}, email2 => {equal_to => À̸ÞÀÏ, ¿À·ù => {ºÒÆòµî =>'µÎ À̸ÞÀÏ ÁÖ¼Ò´Â µ¿ÀÏÇؾßÇÕ´Ï´Ù. ',},}, ); ³» $ r = $ env { 'mod_perl'}? Apache :: Request-> ÀνºÅϽº : CGI-> »õ·Î¿î; MY $ Form = Data :: CGIForm-> New (DataSource => $ R, Spec => % spec); @params = $ ¾ç½Ä -> params; $ param (@Params) {my $ error_string = $ ¾ç½Ä -> ¿À·ù ($ param); stderr $ error_string Àμâ; } ($ ¾ç½Ä -> ¿À·ù ( 'username')) {handle_error ($ form-> username, $ form-> ¿À·ù ( '»ç¿ëÀÚ À̸§')); } My $ Email = $ Form-> Param ( 'À̸ÞÀÏ'); ³» $ Password = $ ¾ç½Ä -> ¾ÏÈ£; ¿ä±¸ »çÇ× : ¡¤ Perl ¿ä±¸ »çÇ× : ¡¤ Perl.


µ¥ÀÌÅÍ :: cgiform. °ü·Ã ¼ÒÇÁÆ®¿þ¾î