| http :: Server :: Brick. ÇÁ·ÎÅä ŸÀÌÇÎÀ»À§ÇÑ °£´ÜÇÑ ¼ø¼ö Perl HTTP ¼¹ö "·çºñÀÇ Webrick ½ºÅ¸ÀÏ |
Áö±Ý ´Ù¿î·Îµå |
http :: Server :: Brick. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Mark Aufflick
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~aufflick/
http :: Server :: Brick. ű×
http :: Server :: Brick. ¼³¸í
ÇÁ·ÎÅä ŸÀÌÇÎÀ»À§ÇÑ °£´ÜÇÑ ¼ø¼öÇÑ Perl HTTP ¼¹ö "½ºÅ¸ÀÏ"·çºñÀÇ Webrick http :: Server :: BrickÀº "·çºñÀÇ Webrick.Synopsis"http :: Server :: BrickÀ» »ç¿ëÇÏ´Â "·çºñÀÇ Webrick.Synopsis"ÇÁ·ÎÅä ŸÀÌÇÎÀ»À§ÇÑ °£´ÜÇÑ ¼ø¼ö Perl HTTP ¼¹öÀÔ´Ï´Ù. http :: status; MY $ Server = http :: Server :: Brick-> New (port => 8888); $ Server-> mount ( '/ foo / bar'=> {path => / some / directory / htdocs ',}); $ Server-> mount ( '/ test / proc'=> {handler => sub {my ($ req, $ res) = @_; $ res-> add_content ( "°æ·Î Á¤º¸ : $ req -> {path_info}" ); 1;}, ¿ÍÀϵå Ä«µå => 1,}); $ Server-> mount ( '/ test / proc / texty'=> {handler => sub {my ($ req, $ res) = @_; $ res-> add_content ( "flubber"); $ res-> Çì´õ ( 'Content-Type', 'text / plain'); 1;}, ¿ÍÀϵå Ä«µå => 1,}); #ÀÌ ´ÙÀ½ µÎ °¡Áö´Â $ Server-> mount ( '/favicon.ico'=> {handler => sub {rc_not_found},}); $ Server-> mount ( '/favicon.ico'=> {handler => sub {my ($ req, $ res) = @_; $ res-> ÄÚµå (rc_not_found); 1;},}; # ¼ö¶ô ¿äûÀ» ½ÃÀÛÇϽʽÿÀ (ÇÁ·Î¼¼½º #°¡ HUP ½ÅÈ£¸¦¹ÞÀ» ¶§±îÁö / µÉ ¶§±îÁö ¸®ÅÏÇÏÁö ¾ÊÀ½) $ SSL -> STL (HTTPS) ¼¹öÀÇ °æ¿ì À§ÀÇ »õ () ÇàÀ» ¹Ù²ß´Ï´Ù. http :: daemon :: ssl »ç¿ë ...¿¡ $ Server = http :: Server :: Brick-> New (port => 8889, daemon_class => 'http :: daemon :: ssl', daemon_args => ,); ¿ä±¸ »çÇ× : ¡¤ Perl.
http :: Server :: Brick. °ü·Ã ¼ÒÇÁÆ®¿þ¾î