html :: Çʵå

HTML ¾ç½Ä ¿ä¼Ò »ý¼º
Áö±Ý ´Ù¿î·Îµå

html :: ÇÊµå ¼øÀ§ ¹× ¿ä¾à

±¤°í

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

html :: Çʵå ű×


html :: ÇÊµå ¼³¸í

HTML ¾ç½Ä ¿ä¼Ò »ý¼º HTML :: ÇÊµå °³Ã¼´Â CGI °³Ã¼, Çؽà ÂüÁ¶ ¶Ç´Â ÀÏ¹Ý ½ºÄ®¶ó¿¡¼­ ÇØ´ç °ªÀ» ÀÐÀº ´ÙÀ½ ÇØ´ç °ªÀ» HTML ÇÊµå ¶Ç´Â °£´ÜÇÑ Àбâ Àü¿ë HTML·Î ·»´õ¸µ ÇÒ ¼ö ÀÖ½À´Ï´Ù. CGI, µ¥ÀÌÅͺ£À̽º ¹× ÅÛÇø´ °£ÀÇ ÀÎÅÍÆäÀ̽º¸¦ ½±°Ô ½±°Ô ÇÒ ¼ö ÀÖ½À´Ï´Ù. ¸Þ¸ð : HTML :: Çʵå´Â Á¦°øÇÏ´Â HTML :: FieldForm¿¡ ´ëÇÑ HTML :: FieldFormÀÇ °ªÀ» È®ÀÎÇÏÁö ¾Ê´Â Perl ¸ðµâÀÔ´Ï´Ù. html :: fields.synopsis ¼¼Æ® HTML :: Çʵ带 »ç¿ëÇÕ´Ï´Ù. ########## ÇÊµå °³Ã¼ »ý¼º ############### # ÅؽºÆ® Çʵå : MY $ field1 = html :: field-> new ( 'textfield', name) => 'Çʵå À̸§', °ª => 'ÇöÀç °ª', ±âº»°ª => '±âº»°ª', Å©±â => 15, maxlength => 15); # PASWORD Çʵå ( 'TEXTFIELD'¿Í µ¿ÀÏÇÑ ¼Ó¼º) : MY $ field2 = html :: field-> new ( 'passwd', name => 'fieldname', value => 'ÇöÀç °ª', ±âº»°ª => ' ±âº»°ª ', size => 15, maxlength => 15); # ¼û°ÜÁø Çʵå : MY $ hidden = html :: field-> new ( '¼û±è', À̸§ => 'sid', value => 'cgiasf25k', default => undef); # ÅؽºÆ® ¿µ¿ª : My $ area = html :: field-> new ( 'textArea', name => 'ÁÖ¼Ò', cols => 40, Çà => 4); # 'select'ű×. ¿É¼ÇÀº ¹è¿­ ÂüÁ¶¿¡ Á¦°øµË´Ï´Ù. ·¹À̺íÀº ¿É¼Ç¿¡ ÀÇÇØ keed¿¡ ÀÇÇØ ÁÖ¾îÁø # ³» $ select = html :: field-> new ( 'select', name => 'select_color', ¿É¼Ç => , ±âº»°ª => '»¡°£»ö', ·¹À̺í => {red => '»ç°úÀÇ »ö»ó', ³ë¶õ»ö => '¸Á°íÀÇ »ö»ó!', °¥»ö => 'ÃÊÄݸ´ÀÇ »ö±ò'}, ´ÙÁß => undef, # ¿©·¯ Å©±â´Â Âü ¶Ç´Â °ÅÁþ Å©±âÀÔ´Ï´Ù. => 1); # ¼±Åà »óÀÚÀÇ Å©±â # ¶óµð¿À ¹öÆ°. ¸ðµç # ¿É¼Ç¿¡ ´ëÇØ HTMLÀÌ »ý¼ºµÇ¸ç 'name_option'À¸·Î ÁöÁ¤µË´Ï´Ù. MY $ RADIO_BUTTONS = HTML :: FIELS-> NEW ( '¶óµð¿À', À̸§ => 'Flavors', ¿É¼Ç => , ±âº»°ª => 'ÀÚ¸ù'); # ´ÜÀÏ È®Àζõ : my $ checkbox = html :: field-> new ( 'checkbox', name => 'Ãß°¡', ¿É¼Ç => 'strawberry', default => 1, read_only_tags => {true => 'x' , °ÅÁþ => 'o'}); # ·»´õ¸µ ÆíÁý °¡´ÉÇÑ HTML My ($ Å°, $ value) = $ field-> editable_html; # ·»´õ¸µ Àбâ Àü¿ë °ª ($ Å°, $ value) = $ field-> readonly_html; # »õ ¿ä¼Ò ($ Å°, $ value) = $ field-> creation_html¿¡ ´ëÇÑ ÆíÁý °¡´ÉÇÑ HTML ·»´õ¸µ; # CGI °´Ã¼, Çؽà ÂüÁ¶ ¶Ç´Â ½ºÄ®¶ó¿¡¼­ ÇʵåÀÇ °ªÀ» ¼³Á¤ÇÕ´Ï´Ù. MY $ VALUE = $ FIELD-> °ª ($ CGI); # ¶Ç´Â ÆÄÀÏ value : $ value = $ field-> °ª; # 'read_only_tags'¼Ó¼ºÀº # È®ÀζõÀÇ Ç¥ÇöÀ» ¼³Á¤Çϰųª 'Àбâ Àü¿ë'·»´õ¸µ¿¡ ´ëÇÑ ¶óµð¿À ´ÜÃ߸¦ ¼³Á¤ÇÕ´Ï´Ù. #ÀÌ ±â´ÉÀ» »ç¿ëÇÏ¿© # 'üũ µÈ'¶óµð¿À ¹öÆ° ¶Ç´Â È®ÀζõÀ» ³ªÅ¸³»´Â µ¥ ´Ù¸¥ À̹ÌÁö¸¦·ÎµåÇÏ´Â µ¥ »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù. # ±âº» Å° ÅؽºÆ® Çʵå : MY $ field1 = html :: field-> new ( 'textfield', name => 'login', size => 15, maxLength => 15, primary_key => 1); # ÅؽºÆ® Çʵ尡 '±âº»'Å°·Î Ç¥½ÃµÇ¸é # °ªÀÌ ÀÖÀ¸¸é # ÆíÁý ÇÒ ¼ö ¾ø½À´Ï´Ù. Áï, »ç¿ëÀÚ°¡ ºó ¾ç½ÄÀ» Ç¥½ÃÇÏ´Â °æ¿ì ÆíÁý °¡´ÉÇÑ ÅؽºÆ® Çʵ尡 µÉ °ÍÀ̶ó´Â °ÍÀ» ÀǹÌÇÕ´Ï´Ù. ±×·¯³ª ¹öÀü¿¡ ´ëÇÑ µ¥ÀÌÅͺ£À̽º ·¹Äڵ带 Ç¥½ÃÇÏ´Â °æ¿ìÀÌ # Çʵå´Â ÆíÁý °¡´ÉÇÏÁö ¾ÊÀ¸¸ç ¼û°ÜÁø # Çʵå·Îµµ ÆíÁý ÇÒ ¼ö ¾ø½À´Ï´Ù. ½ºÅ©¸³Æ®·Î ´Ù½Ã º¸³»·Á¸é. # µ¥ÀÌÅͺ£À̽º¿¡ ÀÇÇØ ÀÚµ¿ »ý¼º : MY $ serial = html :: field-> new ( 'textfield', name => company_id ', size => 4, maxlength => 4, auto => 1); # ÇÊµå °ªÀÌ # µ¥ÀÌÅͺ£À̽º¿¡ ÀÇÇØ »ý¼º µÈ °æ¿ì À§¿Í µ¿ÀÏÇÏ°Ô Àû¿ëµË´Ï´Ù. ÀÌ °æ¿ì °ªÀº Àý´ë·Î ÆíÁý ÇÒ ¼ö ¾ø½À´Ï´Ù. # Çʵ忡 °ªÀÌ ¾øÀ¸¸é Place holder°¡ ´ë½Å ¹ÝȯµË´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.


html :: ÇÊµå °ü·Ã ¼ÒÇÁÆ®¿þ¾î