HTML :: Formwizard.

¾ç½Ä HTMLÀÌ °£´ÜÇÏ°Ô ¸¸µé¾ú½À´Ï´Ù
Áö±Ý ´Ù¿î·Îµå

HTML :: Formwizard. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Marco Neves
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~neves/

HTML :: Formwizard. ű×


HTML :: Formwizard. ¼³¸í

¾ç½Ä HTMLÀÌ °£´ÜÇÏ°Ô ¸¸µé¾ú½À´Ï´Ù HTML :: Formwizard´Â CGI¸¦ »ç¿ëÇÏ¿© ¿äû¿¡¼­ µ¥ÀÌÅ͸¦ °Ë»öÇÏ´Â Perl ¸ðµâÀ̸ç HTML ¾ç½ÄÀº Á¦°øµÇÁö ¾ÊÀº °æ¿ì °´Ã¼ ÅÛÇø´À» »ç¿ëÇÏ¿© »ý¼ºµÇ¸ç $ self (ÀÚü ÂüÁ¶)°¡µË´Ï´Ù. ¾ç½Ä ¹× ´ÜÁö HTML ¾ç½ÄÀ» ÀÛ¼ºÇÏ°í, »ç¿ëÀÚ°¡ HTML ¾ç½ÄÀ» ÀÛ¼ºÇÏ°í, »ç¿ëÀÚ¿¡°Ô º¸³»´Â µ¥ÀÌÅ͸¦ °Ë»öÇÏ°í, ù ¹ø° ¿äû°ú ¿Ã¹Ù¸¥ µ¥ÀÌÅÍ »çÀÌÀÇ ¸ðµç °ÍÀ» ó¸®ÇÕ´Ï´Ù. ¼Ò°³. ¿Ö ¸ðµç ÇÁ·Î±×·¥À» °³¹ß ÇؾßÇÏ´Â ÀÌÀ¯´Â ÀϺΠ¸ðµâÀ» ÀϺΠ¸ðµâÀ» ¸¸µé·Á¸é ¾ç½ÄÀ» ¸¸µé¾î¾ßÇÕ´Ï´Ù. ¶Ç´Â µ¥ÀÌÅ͸¦ È®ÀÎ ÇؾßÇÏ´Â ÀÌÀ¯´Â ¹«¾ùÀԴϱî? html :: formwizard´Â CGI¸¦ »ç¿ëÇÏ¿© ¿äû¿¡¼­ µ¥ÀÌÅ͸¦ °Ë»öÇÏ´Â Perl ¸ðµâÀ̸ç, HTML ¾ç½ÄÀº Á¦°øµÇÁö ¾ÊÀº °æ¿ì °´Ã¼ ÅÛÇø´À» »ç¿ëÇÏ¿© »ý¼ºµË´Ï´Ù. $ self (self reference)°¡ µÉ °ÍÀÔ´Ï´Ù. ½Ä ³ëÇÁ #ÀÌ ½ºÅ©¸³Æ®´Â CGI.PM # ¿¹Á¦¿Í °ÅÀÇ µ¿ÀÏÇÕ´Ï´Ù. ±×¸®°í ¿¹, CGI¸¦ »ç¿ëÇÕ´Ï´Ù. Áï, # ÆûÀ» ¾¹´Ï´Ù. Á¦Ãâ µÈ °ªÀ» »ç¿ëÇϸé CGI ()¸¦ »ç¿ëÇÕ´Ï´Ù. html :: formwizard (); $ Æû = HTML :: FORMWIZARD-> NEW (-TITLE => '°£´ÜÇÑ ¿¹Á¦', -FIELDS => , defaults => }, {name =>'Color ', Description => "ÁÁ¾ÆÇÏ´Â »ö±òÀº ¹«¾ùÀԴϱî?", type =>'list ', value => }]); # À½, °ÅÀÇ ...ÇÏÁö¸¸ ÀÌÁ¦´Â ´Ù¸¥ ÀÏÀ»ÇÕ´Ï´Ù ... # Ãß°¡ ÇÊµå ´Ù¸¥ ¸ñ·Ï Çʵå, ¿¹¸¦ µé¾î ¼±ÅÃÇؾßÇÕ´Ï´Ù. # óÀ½¿¡´Â ¼±ÅÃÇؾßÇÕ´Ï´Ù. " - " $ ¾ç½Ä -> add ({name => ±¹°¡ ', ¼³¸í =>'¾îµð¿¡¼­ ÅÂ¾î ³µ½À´Ï±î? ', type =>'list ', value => {pt => portugal', us => '¹Ì±¹' , ¿µ±¹ => ¿µ±¹ ', fr =>'ÇÁ¶û½º ','- '=>'±âŸ ',' '=>'- '}, ±âº»°ª =>' ', ÇÊ¿ä => 1 }); # ±×¸®°í ÇÑ ¹ø ´õ ... # 8 ÀÚ ±æÀÌ°¡ ÀÖ¾î¾ßÇÕ´Ï´Ù. # $ 8 ÀÚ ±æÀ̸¦ »ç¿ëÇؾßÇÕ´Ï´Ù. $ ¾ç½Ä -> Ãß°¡ ({name => password ') type => 'password', minlen => 3, maxlen => 8, validate => sub {my $ pass = shift; (($ pass = ~ / d /) ¹× ($ pass = ~ / /)¿Í ($ pass = ~ / w / w /)); "ÇÊµå ¾ÏÈ£°¡ Àû¾îµµ ¼ýÀÚ°¡ ÀÖ¾î¾ßÇÕ´Ï´Ù."¹®ÀÚ¿Í ±âÈ£ ";}, ÇÊ¿ä}, ÇÊ¿ä}, ÇÊ¿ä}; # ±×¸®°í Áö±Ý ... °á°ú¸¦ ¾òÀ¸·Á°í !!! if (my $ data = $ Form-> Run) {QQ (À̸§ ID $$ µ¥ÀÌÅÍ {name} Å°¿öµå) :), join ( ",", @ {$$ data {words}}), QQ ( °¡Àå ÁÁ¾ÆÇÏ´Â »ö»óÀº $$ µ¥ÀÌÅÍ {Color} Ãâ»ý ±¹°¡°¡ $$ µ¥ÀÌÅÍ {±¹°¡}ÀÌ°í ¾ÏÈ£´Â $$ µ¥ÀÌÅÍ {password})} ¿ä±¸ »çÇ× : ¡¤ Perl.


HTML :: Formwizard. °ü·Ã ¼ÒÇÁÆ®¿þ¾î