CGI :: validate.CGI :: À¯È¿¼º °Ë»ç´Â °í±Þ CGI ¾ç½Ä Æļ ¹× À¯Çü À¯È¿¼º °Ë»çÀÔ´Ï´Ù. | |
Áö±Ý ´Ù¿î·Îµå |
CGI :: validate. ¼øÀ§ ¹× ¿ä¾à
±¤°í
- ƯÇã:
- Perl Artistic License
- °¡°Ý:
- FREE
- °Ô½ÃÀÚ À̸§:
- Byron Brummer
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~zenin/CGI-Validate-2.000/Validate.pm
CGI :: validate. ű×
CGI :: validate. ¼³¸í
CGI :: À¯È¿¼º °Ë»ç´Â °í±Þ CGI ¾ç½Ä Æļ ¹× À¯Çü À¯È¿¼º °Ë»çÀÔ´Ï´Ù. CGI :: À¯È¿¼º °Ë»ç´Â °í±Þ CGI ¾ç½Ä Æļ ¹× À¯Çü À¯È¿¼º °Ë»çÀÔ´Ï´Ù .Synopsis CGI :: À¯È¿¼ºÀ» »ç¿ëÇÕ´Ï´Ù. # getFormData () CGI :: À¯È¿¼º °Ë»ç QW (: Ç¥ÁØ) ¸¸ »ç¿ëÇÕ´Ï´Ù. # Á¤»óÀûÀÎ »ç¿ë CGI :: vilectate qw (: subs); # Just Functions CGI :: validate QW (: vars); # ¿¹¿Ü vars ##Àº ¿äûÇÑ ¸ðµç ¿ä¼Ò°¡ µµÂøÇÑ ¸ðµç ¿äû µÈ ¿ä¼Ò°¡ µµÂøÇß´ÂÁö È®ÀÎÇÏÁö ¾ÊÀ¸·Á¸éÀÌ ¿É¼ÇÀ» »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù. ±×·¯³ª ³ª´Â ´ëºÎºÐÀÇ »ç¿ëÀÚ¿¡°Ô ±×°ÍÀ» ÃßõÇÏÁö ¾Ê´Â´Ù. $ CGI :: À¯È¿¼º °Ë»ç :: ¿Ï·á = 0; ## ¾ç½ÄÀÇ ÀϺΠÇʵ尡 °ÆÁ¤ÇÏÁö ¾ÊÀ¸¸é ½ÇÁ¦·Î ´ç½ÅÀÌ ¿äûÇÑ °Í°ú ½ÇÁ¦·Î ÀÏÄ¡ÇÏÁö ¾Ê½À´Ï´Ù. -i ´ç½ÅÀÌ ´ç½ÅÀÌÇÏ´Â °ÍÀ» Á¤¸»·Î ¾ËÁö ¸øÇÑ´Ù¸é, ´ç½ÅÀÌ Á¤»óÀûÀ¸·Î ´ç½ÅÀÌ ´ç½ÅÀÇ html¿¡ ¿ÀŸ°¡ÀÖ´Â °Í¿¡ ´ëÇØ ¿ÀŸ°¡ ÀÖ´Ù´Â °ÍÀ» Á¤¸»·Î ¾ËÁö ¸øÇϸé ÃßõÇÏÁö ¾Ê¾ÆµµµË´Ï´Ù. ## $ CGI :: À¯È¿¼º °Ë»ç :: IgnoRenonMatchingFields = 1; ³» $ fieldone = '±âº» ¹®ÀÚ¿'; ³» $ fieldtwo = 8; MY $ FIBLETHREE = 'ÀϺΠ±âº» ¹®ÀÚ¿'; ³» @fieldfour = (); ## ´ÙÁß ¼±Åà ÇʵåÀÇ °æ¿ì my @fieldfive = (); ## ditto my $ EmailAddress = ''; ## ½Ãµµ ... ³» $ query = getFormData ( 'fieldone = s'=> $ fieldone, ## Çʼö ¹®ÀÚ¿ 'fieldtwo = i'=> $ fieldtwo, ## Çʼö int 'fieldthree'=> $ fillthree, ## ÀÚµ¿ º¯È¯ ": s"À¯Çü 'fieldfour = s'=> @fieldfour, strings 'fieldFive = f'=> @fieldfiveÀÇ @filetfive ÇʵåÀÇ ¸ÖƼ ¼±Åà Çʵå, floats 'Email = e'ÀÇ ´ÙÁß ¼±Åà Çʵå => $ EmailAddress, ## À̸ÞÀÏ ÁÖ¼Òó·³ 'º¸ÀÌ´Â'¶Ç´Â {## catch ... (¿©±â¼´Â »ç·Ê¸¦ ÁÁ¾ÆÇÏÁö ¾Ê°Ú½À´Ï±î?) (% ´©¶ô µÈ "´©¶ô µÈ ¾ç½Ä ¿ä¼Ò°¡ ´©¶ô µÈ °æ¿ì : " °¡ÀÔ ( '', Å° ´©¶ô); } ELSIF (% INVALID) {DIE "Æû ¿ä¼Ò°¡ À߸øµÇ¾ú½À´Ï´Ù.". °¡ÀÔ ( '', Å°°¡ À߸øµÇ¾ú½À´Ï´Ù); } ELSIF (% blank) {blank Æû ¿ä¼Ò : ". °¡ÀÔ ( '', Å° % °ø¹é); } ELSIF (% INVALITTYPE) {DIA "Çʵ忡 ´ëÇÑ À߸øµÈ µ¥ÀÌÅÍ À¯Çü :". Join ( '', Å° % InvalidType); } else {die "getFormData () ¿¹¿Ü : $ cgi :: À¯È¿¼º °Ë»ç :: ¿À·ù"; }}; ## Æû µ¥ÀÌÅÍ ¸¸ È®ÀÎÇÏ°í ½ÍÁö¸¸ ## ½ÍÁö´Â ¾ÊÁö¸¸ ##¿¡´Â CGI :: À¯È¿¼º °Ë»ç°¡ ÀÖ½À´Ï´Ù. - ¹ÝȯµÇ´Â ÀÏ¹Ý B °´Ã¼¸¦ ÅëÇØ µ¥ÀÌÅÍ¿¡ ´ëÇÑ Àüü ## ¾×¼¼½º°¡ ÀÖ½À´Ï´Ù. CGI :: À¯È¿¼º °Ë»ç QW (CheckFormData); # ±âº»ÀûÀ¸·Î ³»º¸³»Áö ¾ÊÀ½ My $ Query = CheckFormData ( 'fieldone = s', 'fieldtwo = i', 'fieldthree', 'fieldfour', 'fieldfive', 'À̸ÞÀÏ',) ¶Ç´Â do {... ... µ¿ÀÏÇÑ ¿¹¿Ü À§ÀÇ getFormData ...}; ## »ç¿ëÁßÀÎ ÀϺΠÀ¯È¿¼º °Ë»ç Äڵ尡 ÇÊ¿äÇմϱî? ´ç½ÅÀÌ ¾î¶»°ÔÇÏ´ÂÁö ¿©±â¿¡ ÀÖ½À´Ï´Ù. addExtensions (myType => sub {$ _ = ~ / test /}, foobar => foobar, i_modify_the_actual_data => sub {if ($ _ 0] = / test /) {## µ¥ÀÌÅÍ À¯È¿¼º °Ë»ç $ _ = '¹¹µçÁö'; ## º°Äª ¸®ÅÏ 1;} {RETURN 0;}}, µ¥ÀÌÅÍ ¼öÁ¤; MY $ QUERY = getFormData ( 'foo = xmytype'=> $ foo, 'bar = xfoobar'=> $ bar, 'cat = xi_modify_the_actual_data'=> $ cat,); ## ³»ÀåÇü µ¥ÀÌÅÍ À¯Çü °Ë»ç´Â ´ÙÀ½°ú °°½À´Ï´Ù. s string # 0ÀÌ ¾Æ´Ñ ±æÀÌ °ª °ª W ¿öµå #Àº Àû¾îµµ ÇϳªÀÇ W CHAR I Integer # Á¤¼ö °ª F Ç÷ÎÆ® # Float °ª ÀüÀÚ ¸ÞÀÏ # m / ^ s * ¿ä±¸ »çÇ×°ú ÀÏÄ¡ÇؾßÇÕ´Ï´Ù. ¡¤ Perl.
CGI :: validate. °ü·Ã ¼ÒÇÁÆ®¿þ¾î
mkdoc :: xml :: stripper.
MKDOC :: XML :: Stripper´Â ¿øÄ¡ ¾Ê´Â XML / XHTML ÅÂ±× ¹× ¼Ó¼ºÀ» Á¦°ÅÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. ...
159
DBIX :: XMLMessage
DBIX :: XMLMessage´Â DBI µ¥ÀÌÅÍ ¼Ò½º°£¿¡ XML ¸Þ½ÃÁö ±³È¯À»À§ÇÑ Perl ¸ðµâÀÔ´Ï´Ù. ...
138
XML :: ÇÊÅÍ :: Á¤·Ä :: ¹öÆÛ
XML :: FILTER :: SORT :: BUFFER´Â XML :: ÇÊÅÍ :: Á¤·Ä¿¡¼ »ç¿ëÇÏ´Â ±¸Çö Ŭ·¡½ºÀÔ´Ï´Ù. ...
163