rcgi.

RCGI´Â ¿ø°Ý CGI ºÐ»ê ó¸® Ŭ·¡½ºÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

rcgi. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • 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. °ü·Ã ¼ÒÇÁÆ®¿þ¾î

DBD :: WTSPRITE.

DBD :: WTSPRITE´Â DBI ¿ë PERL È®ÀåÀÚÀ̸ç Ç÷§ ÆÄÀÏÀ» ÅëÇØ µ¥ÀÌÅͺ£À̽º eDrumulationÀ» Á¦°øÇÕ´Ï´Ù. ...

142

´Ù¿î·Îµå