| PoE :: ÇÊÅÍ :: httpd. POE :: ÇÊÅÍ :: HTTPD´Â ½ºÆ®¸²À» HTTP :: Request·Î º¯È¯ÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. ½ºÆ®¸²¿¡ ´ëÇÑ http :: ÀÀ´ä. |
Áö±Ý ´Ù¿î·Îµå |
PoE :: ÇÊÅÍ :: httpd. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Artur Bergman
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~rcaputo/POE-1.0003/lib/POE/Filter/HTTPD.pm
PoE :: ÇÊÅÍ :: httpd. ű×
PoE :: ÇÊÅÍ :: httpd. ¼³¸í
PoE :: Filter :: httpd´Â ½ºÆ®¸²À» HTTP :: Request·Î º¯È¯ÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. ½ºÆ®¸²¿¡ ´ëÇÑ http :: ÀÀ´ä. PoE :: Filter :: httpd´Â ½ºÆ®¸²À» HTTP :: Request·Î º¯È¯ÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. stream.synopsis $ httpd = poe :: filter :: httpd-> new (); $ arrayref_with_http_response_as_string = $ httpd-> put ($ full_http_response_object); $ arrayref_with_http_request_object = $ lion-> get ($ arrayref_of_raw_data_chunks_from_driver); HTTPD ÇÊÅÍ´Â µé¾î¿À´Â ½ºÆ®¸²¿¡¼ óÀ½ http 1.0 ¿äûÀ» http :: request °´Ã¼ (¿äûÀÌ ÁÁÀ¸¸é) ¶Ç´Â http :: ÀÀ´ä °´Ã¼·Î ±¸¹® ºÐ¼®ÇÕ´Ï´Ù ( ¿äûÀÌ À߸øµÇ¾ú½À´Ï´Ù). ÀÀ´äÀ» º¸³»·Á¸é http :: response object.dere »ùÇà ÀÔ·Â Çڵ鷯 : sub got_request {my ($ heap, $ ¿äû) = @_ ; # ÇÊÅÍ :: httpd´Â ¿äû ´ë½Å ÀÀ´äÀ» »ý¼ºÇß½À´Ï´Ù. # ¸î °¡Áö Á¾·ùÀÇ ¿À·ù°¡ ÀÖ¾î¾ßÇÕ´Ï´Ù. # (ref ($ ¿äû) EQ 'http :: Response'¸¦ È®ÀÎÇÒ ¼öµµ ÀÖ½À´Ï´Ù.). if ($ request-> isa ( 'http :: reswith)) {$ heap -> {wheel} -> put ($ ¿äû); ¹ÝÇ°; } # ¿©±â¿¡¼ ¿äûÀ» ó¸®ÇϽʽÿÀ. MY $ ´äº¯ = http :: Response-> New (200); $ ÀÀ´ä -> push_header ( 'content-type', 'text / html'); $ ÀÀ´ä -> ÄÜÅÙÃ÷ ($ ¿äû -> as_string ()); $ heap -> {wheel} -> put ($ ÀÀ´ä); } http :: request ¹× http :: response.poe :: filter :: httpdÀÇ ¹®¼´Â ½ºÆ®¸²À» http :: Request·Î º¯È¯ÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. ½ºÆ®¸²¿¡ ´ëÇÑ http :: ÀÀ´ä. ¿ä±¸ »çÇ× : ¡¤ Perl.
PoE :: ÇÊÅÍ :: httpd. °ü·Ã ¼ÒÇÁÆ®¿þ¾î