| ¾ç½Ä :: ÇÁ·Î¼¼¼ Form :: ÇÁ·Î¼¼¼´Â ¾ç½Ä µ¥ÀÌÅÍÀÇ À¯È¿¼ºÀ» °Ë»çÇÏ°í ó¸® ÇÒ ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
¾ç½Ä :: ÇÁ·Î¼¼¼ ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Bill Moseley
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~hank/
¾ç½Ä :: ÇÁ·Î¼¼¼ ű×
¾ç½Ä :: ÇÁ·Î¼¼¼ ¼³¸í
Form :: ÇÁ·Î¼¼¼´Â ¾ç½Ä µ¥ÀÌÅÍÀÇ À¯È¿¼ºÀ» °Ë»çÇÏ°í ó¸® ÇÒ ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. Form :: ÇÁ·Î¼¼¼´Â ¾ç½Ä Data.SynopsIsInÀ» À¯È¿ÈÇÏ°í ó¸® ÇÒ ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. ÄÁÆ®·Ñ·¯°¡ "»ç¿ëÀÚ"·¹ÄÚµå »ý¼º ¹× ¾÷µ¥ÀÌÆ®¸¦ ó¸® ÇÒ ¼ö ÀÖ½À´Ï´Ù. ¸¹Àº Äڵ带 ÀÛ¼ºÇÏ°í ½ÍÁö ¾Ê½À´Ï´Ù. ¿©±â¼ atalyst¸¦ »ç¿ëÇÏ´Â ¿¹ : ÆÐÅ°Áö MyApplication :: ÄÁÆ®·Ñ·¯ :: »ç¿ëÀÚ; ¾ö°ÝÇÑ »ç¿ë; myApplication :: Form :: »ç¿ëÀÚ; ÇÏÀ§ ÆíÁý : ·ÎÄà {My ($ self, $ c, $ id) = @_; # Æû °´Ã¼ ¸¸µé±â My $ Form = MyApplication :: Form :: User-> New ($ ID); # $ C-> FORM_POSTED ÀÎ °æ¿ì $ ¾ç½Ä -> update_from_from ($ C-> Request-> ¸Å°³ º¯¼ö)ÀÇ À¯È¿¼ºÀ» °Ë»çÇÏ°í ¾ç½ÄÀ» À¯È¿ÇÏ°ÔÇÏ´Â °æ¿ì # Update ¶Ç´Â Cleate »ç¿ëÀÚ ·¹Äڵ带 ¾÷µ¥ÀÌÆ®Çϰųª ¸¸µì´Ï´Ù. $ c-> stash -> {form} = $ ¾ç½Ä; } À§ÀÇ ¾ç½Ä Ŭ·¡½º´Â ´ÙÀ½°ú °°½À´Ï´Ù. ÆÐÅ°Áö MyApplication :: Form :: User; ¾ö°ÝÇÑ »ç¿ë; ±âº» 'Form :: Processor :: Model :: CDBI'¸¦ »ç¿ëÇϽʽÿÀ. sub object_class { 'db :: user'} ÇÏÀ§ ÇÁ·ÎÇÊ {³» $ self = shift; {required => {name => 'text', age => 'posinteger', sex => 'select', birthdate => 'dateTimedMyhm',}, ¿É¼Ç => {hobbies => multiple ', ÁÖ¼Ò => 'TEXT', CITY => 'TEXT', State => 'Select', Email => 'Email',}, Á¾¼Ó¼º => ,],}; } Sub options_sex {return (m => male ', f =>'¿©¼º ',); } Sub Validate_age {My ($ self, $ field) = @_; $ field-> add_error ( 'Á˼ÛÇÕ´Ï´Ù, 18'¿©¾ßÇÕ´Ï´Ù) $ field-> °ª <18; } ¶Ç´Â ºü¸£°Ô ÀÛÀº ¾ç½ÄÀÌ ÇÊ¿äÇÒ ¶§ ÄÁÆ®·Ñ·¯ ¿¡¼ÀÌ ÀÛ¾÷ ¼öÇàÇϽʽÿÀ my @fields = qw first_name last_name À̸ÞÀÏ ; $ c-/> stash -> {form} = form :: processor-> new (profile => {required => {¸Ê {$ _ => 'ÅؽºÆ®'qw / first_name last_name À̸ÞÀÏ /,},},); ÀÌ°ÍÀº ¾ç½ÄÀ» »ç¿ëÇÑ ¼ö¾÷ÀÔ´Ï´Ù. ¾ç½ÄÀº ³»ºÎ µ¥ÀÌÅÍ Ç¥Çö (¿¹ : µ¥ÀÌÅͺ£À̽º)°ú ¿ÜºÎ ¼¼°è (¿¹ : À¥ ¾ç½Ä) »çÀÌÀÇ ·¹ÀÌ¾î ¿ªÇÒÀ»ÇÕ´Ï´Ù. ÀÌ ¿µ¿ª °£ÀÇ µ¥ÀÌÅ͸¦ À̵¿ÇÏ·Á¸é Á¾Á¾ µ¥ÀÌÅÍÀÇ À¯È¿¼º °Ë»ç ¹× ÀÎÄÚµù ¶Ç´Â È®ÀåÀÌ ÇÊ¿äÇÕ´Ï´Ù. ¿¹¸¦ µé¾î ³¯Â¥´Â ³»ºÎÀûÀ¸·Î ½Ã°£ ¼ÒÀÎ ÀÏ ¼ö ÀÖÁö¸¸ ¿ÜºÎ¿¡¼´Â ÇØ, ¿ù, ÀÏ, ½Ã°£, ºÐ ÀÔ·Â ÇʵåÀÇ Ä÷º¼ÇÀÔ´Ï´Ù. ¾ç½ÄÀº ´Ù¸¥ À¯Çü (¿¹ : ÅؽºÆ®, À̸ÞÀÏ, Á¤¼ö, ³¯Â¥). ¿©±â¼ Çʵ尡 ³»ºÎ Çü½ÄÀ¸·Î ½ÂÀεDZâ Àü¿¡ À¯È¿¼º °Ë»ç°¡ ÇÊ¿äÇÑ °÷ÀÔ´Ï´Ù. À¯È¿¼º °Ë»ç ÇÁ·Î¼¼½º´Â ½ÇÁ¦·Î ¿©·¯ ´Ü°è·Î ±¸¼ºµÇ¾î ÀÖÀ¸¸ç °¢ ´Ü°è´Â ÇÁ·Î¼¼½º¸¦ »ç¿ëÀÚ Á¤ÀÇÇϱâ À§ÇØ ÀçÁ¤ÀÇ µÉ ¼ö ÀÖ½À´Ï´Ù. fields.forms¿¡ ´ëÇÑ form :: processor :: fields.forms´Â ¾ç½ÄÀ» ±¸¼ºÇÏ´Â Çʵ带 Á¤ÀÇÇÏ´Â ¸Þ¼Òµå¿Í Çʵ忡 ´ëÇÑ Æ¯º° ¹× Ãß°¡ À¯È¿¼º °Ë»ç¸¦ Æ÷ÇÔÇÏ´Â ¸Þ¼Òµå°¡ Æ÷ÇÔ µÈ º°µµÀÇ Perl ¸ðµâÀ» ÀÛ¼ºÇÏ¿© Á¤ÀÇ µÈ (ÀϹÝÀûÀ¸·Î) Á¤Àǵ˴ϴÙ. Form :: ÇÁ·Î¼¼¼°¡ HTMLÀ» »ý¼ºÇÏÁö ¾Ê½À´Ï´Ù. HTMLÀº "º¸±â"(¹× Á¾Á¾ ÅÛÇø´ »ç¿ë)·Î »ý¼ºµÇ¾î¾ßÇÕ´Ï´Ù. ±×¸®°í °Ô´Ù°¡, HTML ¾ç½ÄÀº »ý¼ºÇÏ´Â °ÍÀÌ »ç¼ÒÇÑ ÀÏÀÌ¸ç ½ÇÁ¦ »ýÈ°¿¡¼ °ÅÀÇ Ç×»ó »ç¿ëÀÚ Á¤ÀÇ°¡ ÇÊ¿äÇÕ´Ï´Ù. ÁÁÀº ÅÛÇø´ ½Ã½ºÅÛÀÇ »ç¿ëÀº ÀÌ°ÍÀ» °ÅÀÇ °íÅ뽺·´°ÔÇÏÁö ¾Ê½À´Ï´Ù. ¶ÇÇÑ ´ÜÀÏ ¹æ¹ýÀ¸·Î Àüü À¥ ¾ç½ÄÀ» ¹ñ¾î³»´Â ¹æ¹ýÀÌ ¾ø½À´Ï´Ù. ¿ÏÀüÇÑ HTML ¾ç½ÄÀ» »ý¼ºÇÏ´Â ´ÜÀÏ ¹æ¹ýÀ» °®´Â °ÍÀº °¡Àå °£´ÜÇÑ À¥ Çü½Ä¿¡¸¸ À¯¿ëÇÕ´Ï´Ù.ÀÌ ¸ðµâÀº ÀϹÝÀûÀÎ ÀÀ¿ë ÇÁ·Î±×·¥ÀÌÁö¸¸ À¥ ȯ°æ¿¡¼ »ç¿ëÇϵµ·Ï Á¦ÇѵÇÁö ¾Ê½À´Ï´Ù. Catalyst, Class :: DBI, Template-Toolkit ¹× HTML :: FillinForm°ú ÇÔ²² »ç¿ëÇϵµ·Ï ¼³°èµÇ¾ú½À´Ï´Ù. ±×·¯³ªÀÌ Å¬·¡½ºÀÇ ¼³°è´Â Rose :: HTML :: °´Ã¼ÀÇ µðÀÚÀο¡ ¸¹Àº ±â¹ÝÀ» µÓ´Ï´Ù. ±×·¯³ª ¾ð±ÞÇßµíÀÌ HTML À§Á¬ »ý¼ºÀº Ŭ·¡½ºÀÇ ÀϺΰ¡ ¾Æ´Õ´Ï´Ù. ÀÌ Å¬·¡½º´Â µ¥ÀÌÅÍ ÀúÀå¼Ò °£ÀÇ µ¥ÀÌÅ͸¦ ¾ç½Ä¿¡¼ HTML·ÎÀÇ Çü½ÄÀ¸·Î À̵¿½ÃÅ°´Â µ¥ ´õ ¸¹ÀÌ ÃÊÁ¡À» ¸Â Ãä´Ï ´Ù. Àå¹Ì :: HTML :: °´Ã¼¸¦ ¾ÆÁ÷ ¼öÇàÇÏÁö ¾ÊÀ¸¸é º¸ÀÔ´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
¾ç½Ä :: ÇÁ·Î¼¼¼ °ü·Ã ¼ÒÇÁÆ®¿þ¾î