| CGI :: ¿äû CGI :: Request´Â CGI ÀÎÅÍÆäÀ̽º¸¦ ÅëÇØ Å¬¶óÀ̾ðÆ® ¿äûÀ» ±¸¹® ºÐ¼®ÇÕ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
CGI :: ¿äû ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Martin R.J. Cleaver
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~mrjc/cvswebedit-v2.0b1/cvs-web/lib/CGI/Request.pm
CGI :: ¿äû ű×
CGI :: ¿äû ¼³¸í
CGI :: Request´Â CGI ÀÎÅÍÆäÀ̽º¸¦ ÅëÇÑ Å¬¶óÀ̾ðÆ® ¿äûÀÔ´Ï´Ù. CGI :: Request´Â CGI ÀÎÅÍÆäÀ̽º¸¦ ÅëÇÑ Å¬¶óÀ̾ðÆ® ¿äûÀ» ±¸¹® ºÐ¼®ÇÕ´Ï´Ù .Synopsis CGI :: Request¸¦ »ç¿ëÇÕ´Ï´Ù. # °£´ÜÇÑ ÀÎÅÍÆäÀ̽º : (sendheaders, new ¹× import_names °áÇÕ) $ req = getRequest ($ pkg); FMTREquest () Àμâ; # ¶È°°Àº : $ req-> as_string # Àüü ÀÎÅÍÆäÀ̽º : $ req = »õ CGI :: ¿äû; # $ fielve_value = $ req-> param ( 'fieldname'); @Selected = $ req-> param ( 'selectmultifield'); @keywords = $ req-> Å°¿öµå; # isIndex Àμâ $ req-> as_string; # Çü½Ä ¾ç½Ä ¹× CGI º¯¼ö # Perl º¯¼ö·Î ÆÐÅ°Áö·Î ¾ç½Ä ÇÊµå °¡Á® ¿À±â! $ req-> import_names ( 'r'); "$ r :: fieldname"Àμâ; Àμâ "@R :: SelectMultifield"; @value = $ req-> param_or ($ fieldname, $ default_return_value); # CGI ÀÎÅÍÆäÀ̽º¿¡ ´ëÇÑ ¾×¼¼½º (CGI :: BASE ÂüÁ¶) $ CGI_OBJ = $ REQ-> CGI; $ cgi_var = $ req-> cgi-> var ( "remote_addr"); # ±âŸ ±â´É : CGI :: Request :: Interface ($ CGI); # ´ëü CGI CGI :: Request :: Debug ($ ·¹º§); # stderr to stderr (cgi :: base ÂüÁ¶) # cgi-lib ȣȯ¼º ÇÔ¼ö # cgi :: request qw (±âº»°ª : cgi-lib); readparse (* ÀÔ·Â)¸¦ °¡Á® ¿À·Á¸é; Printvariables (% ÀÔ·Â);ÀÌ ¸ðµâÀº CGI :: Request °´Ã¼¸¦ ±¸ÇöÇÕ´Ï´Ù. ÀÌ °´Ã¼´Â www »ç¿ëÀÚÀÇ ´ÜÀÏ Äõ¸® / ¿äû / Á¦ÃâÀ» ³ªÅ¸³À´Ï´Ù. CGI :: Request Ŭ·¡½º´Â HTML ¾ç½Ä ¹× ÇʵåÀÇ °³³äÀ» ÀÌÇØÇÕ´Ï´Ù. ƯÈ÷ CGI query_stringÀ» ±¸¹® ºÐ¼®ÇÏ´Â ¹æ¹ýÀ» ÀÌÇØÇÕ´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
CGI :: ¿äû °ü·Ã ¼ÒÇÁÆ®¿þ¾î