rcgi. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Brian H. Dunford-Shore and David J. States
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~brian/RCGI-1.20/RCGI.pm
rcgi. ű×
rcgi. ¼³¸í
RCGI´Â ¿ø°Ý CGI ºÐ»ê ó¸® Ŭ·¡½ºÀÔ´Ï´Ù. RCGI´Â ¿ø°Ý CGI ºÐ»ê ó¸® Ŭ·¡½ºÀÔ´Ï´Ù .Synopsis »ç¿ë RCGI; @Result = invoke ( 'JobOne', @ Àμö); $ result = invoke ( 'jobtwo', @ Àμö); $ REMOTE_SUBROUTINE = »õ·Î¿î RCGI ($ base_url, $ library_path, $ ¸ðµâ, $ ¼ºê ·çƾ); @my_result = $ REMOTE_SUBROUTINE-> È£Ãâ (@Arguments); if ($ remote_subroutine-> success ()) {print @my_result, '; } else {print stderr "È£Ãâ". $ remote_subroutine-> base_url (). "»óÅ·Π½ÇÆÐÇß½À´Ï´Ù." $ remote_subroutine-> status (). '' $ remote_subroutine-> error_message (). "N"; } $ REMOTE_SUBROUTINE-> ASYNC (1); $ remote_subroutine-> wanterray (1); $ remote_subroutine-> È£Ãâ (@Arguments); while (! $ remote_subroutine-> done ()) {# ÀÌ°ÍÀº ½ÇÁ¦·Î ´Ù¸¥ ¼¹ö¿¡ ´ëÇÑ È£Ãâ°ú °°Àº À¯¿ëÇÑ °ÍÀÔ´Ï´Ù! ¼ö¸é 1; } @my_result = $ remote_subroutine-> read (); if ($ remote_subroutine-> success ()) {print @my_result, '; } else {print stderr "È£Ãâ". $ remote_subroutine-> base_url (). "»óÅ·Π½ÇÆÐÇß½À´Ï´Ù." $ remote_subroutine-> status (). '' $ remote_subroutine-> error_message (). "N"; } $ result = rcgi :: run_cgi_command ($ bash_url, % cgi_form, method => $ method, username => $ username, password => $ password, timeout => $ timeout, user_agent => $ user_agent, nph => $ bool_nph ); # CGI ½ºÅ©¸³Æ® ($ cgi_form, % ¿É¼Ç) = rcgi :: process_parameters (»õ CGI); $ result = rcgi :: run_cgi_command ($ base_url, $ cgi_form, % ¿É¼Ç); ¿ä±¸ »çÇ× : ¡¤ Perl.
rcgi. °ü·Ã ¼ÒÇÁÆ®¿þ¾î