CGI :: Test.

CGI :: Å×½ºÆ®´Â CGI ȸ±Í Å×½ºÆ® ÇÁ·¹ÀÓ ¿öÅ©ÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

CGI :: Test. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Steven Hilton
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~mshiltonj/CGI-Test-0.104/Test.pm

CGI :: Test. ű×


CGI :: Test. ¼³¸í

CGI :: Å×½ºÆ®´Â CGI ȸ±Í Å×½ºÆ® ÇÁ·¹ÀÓ ¿öÅ©ÀÔ´Ï´Ù. CGI :: Å×½ºÆ®´Â CGI ȸ±Í Å×½ºÆ® ÇÁ·¹ÀÓ ¿öÅ©ÀÔ´Ï´Ù. ÀϺΠT / Script.t ȸ±Í Å×½ºÆ®¿¡¼­ CGI :: Test¸¦ »ç¿ëÇÕ´Ï´Ù. # exports ok () ³» $ ct = cgi :: test-> new (-base_url => http : //some.server : 1234 / cgi-bin ", -cgi_dir =>"/ path / to / cgi-bin ",); ³» $ Page = $ CT-> get ( "http : //some.server : 1234 / cgi-bin / script? arg = 1"); OK 1, $ Page-> Content_Type = m | ÅؽºÆ® / htmlb |; ³» $ Form = $ Page-> ¾ç½Ä -> ; OK 2, $ Form-> ¾×¼Ç EQ "/ CGI-BIN / SOUNT_TARGET"; ³» $ menu = $ ¾ç½Ä -> menu_by_name ( "meanth"); OK 3, $ ¸Þ´º -> is_selected ( "1 ¿ù"); OK 4,! $ menu-> is_selected ( "3 ¿ù"); OK 5, $ ¸Þ´º -> ¿©·¯; $ send = $ ¾ç½Ä -> submit_by_name ( "send_form"); OK 6, Á¤ÀÇ µÈ $ send; # # ÀÌÁ¦ CGI # $ ¸Þ´º -> ¼±Åà ( "3 ¿ù"); # "3 ¿ù ·¹ÀÌºí¿¡¼­"Ŭ¸¯ "³» $ ´äº¯ = $ send-> ÇÁ·¹½º; # "º¸³»±â ¹öÆ° 7, $ ´äº¯ -> IS_OK; # ¿ì¸®°¡ HTTP ErrorThe¸¦ ¾òÁö ¸øÇÏ´ÂÁö È®ÀÎÇϽʽÿÀ. CGI :: Å×½ºÆ® ¸ðµâÀº CGI ÇÁ·Î±×·¥À» ¿ÀÇÁ¶óÀÎÀ¸·Î ½ÇÇàÇÏ´Â CGI ȸ±Í Å×½ºÆ® ÇÁ·¹ÀÓ ¿öÅ©¸¦ Á¦°øÇÏ°í À¥ ¼­¹ö ¿ÜºÎ¿¡¼­ ÇÁ·Î±×·¡¹Ö ¹æ½ÄÀ¸·Î ÇÁ·Î±×·¡¹Ö ¹æ½ÄÀ¸·Î »óÈ£ ÀÛ¿ëÇÒ ¼öÀÖ´Â CGI ȸ±Í Å×½ºÆ® ÇÁ·¹ÀÓ ¿öÅ©¸¦ Á¦°øÇÕ´Ï´Ù. µ¥ÀÌÅÍ ¹× À¥ ºê¶ó¿ìÀú¿¡¼­ Ŭ¸¯ÇϽʽÿÀ. CGI ¸ðµâÀ» »ç¿ëÇÏ´Â °æ¿ì ¿ÀÇÁ¶óÀÎ Å×½ºÆ® ¸ðµå¿¡ Àͼ÷ ÇÒ ¼ö ÀÖ½À´Ï´Ù. ±×·¯³ªÀÌ ¸ðµå´Â ´Ü¼øÇÑ °Íµé¿¡ ÀûÇÕÇÏ¸ç »óÅ ÀúÀå ½ºÅ©¸³Æ®·Î Àüü ¼¼¼ÇÀ» ¼öÇà ÇÒ ¼öÀÖ´Â Áö¿øÀÌ ¾ø½À´Ï´Ù. CGI :: Test´Â CGI ½ºÅ©¸³Æ®¸¦ ½ÇÇàÇÏ¿© ÇÊ¿äÇÑ ÀÎÇÁ¶ó¸¦ Á¦°ø ÇÑ ´ÙÀ½ Äõ¸® ÇÒ ¼öÀÖ´Â °´Ã¼¸¦ ±¸¼ºÇÏ¿© ½ºÅ©¸³Æ®ÀÇ Á¦¾î À§Á¬À» »ç¿ëÇÏ¿© "Àç»ý"°ú »óÈ£ ÀÛ¿ëÇÒ ¼öÀÖ´Â Ãâ·ÂÀ» ±¸¹®À¸·Î Á¦°øÇÏ°í ¸¶Ä§³» µ¥ÀÌÅ͸¦ ´Ù½Ã Á¦ÃâÇÒ ¼ö ÀÖ½À´Ï´Ù. µîµî ... CGI :: Å×½ºÆ®·Î Å×½ºÆ® ÇÒ ¼öÀÖ´Â CGI ½ºÅ©¸³Æ®´Â Perl¿¡¼­ ÀüÇô ±¸ÇöÇÒ ÇÊ¿ä°¡ ¾ø½À´Ï´Ù. ÀÌ ÇÁ·¹ÀÓ ¿öÅ©¿¡ °üÇÑ ÇÑ CGI ½ºÅ©¸³Æ®´Â CGI¿Í °°Àº ȯ°æ¿¡¼­ ½ÇÇàµÇ¸ç Ãâ·ÂÀ» »ý¼ºÇÏ´Â ½ÇÇà ÆÄÀÏÀÔ´Ï´Ù. CGI :: Å×½ºÆ® ÇÁ·¹ÀÓ ¿öÅ©¸¦ »ç¿ëÇÏ·Á¸é CGI :: Å×½ºÆ® °´Ã¼¸¦ ±¸¼ºÇؾßÇÕ´Ï´Ù. À¥ ¼­¹ö, CGI ½ºÅ©¸³Æ® °¡ÀÌ ÀÇ»ç ¼­¹ö¿¡ÀÖ´Â °æ¿ì URLº£À̽º¸¦ Á¦°øÇÏ°í ÇØ´ç URL Base.from¿¡ ÇØ´çÇÏ´Â ½ÇÁ¦ µð·ºÅ丮°¡ URLÀ» Á¦°øÇÏ´Â GET ¹× POST ¿äûÀ» ¹ßÇà ÇÒ ¼ö ÀÖÀ¸¸ç, PSEUDO-Server´Â CGI :: Test :: Page °´Ã¼´Â ¿äû °á°ú¸¦ ³ªÅ¸³À´Ï´Ù. ÀÌ ÆäÀÌÁö´Â ¿À·ù, ÀÏ¹Ý ÅؽºÆ®, ÀϺΠ¹ÙÀ̳ʸ® µ¥ÀÌÅÍ ¶Ç´Â HTML ÆäÀÌÁö°¡ µÉ ¼ö ÀÖ½À´Ï´Ù (ÀÚ¼¼ÇÑ ³»¿ëÀº CGI :: Test :: Page ÂüÁ¶). ÈÄÀÚ (HTML ÆäÀÌÁö)´Â Çϳª ÀÌ»óÀÇ CGI ¾ç½Ä (ű׷Π½Äº°)À» Æ÷ÇÔ ÇÒ ¼ö ÀÖ½À´Ï´Ù. cgi :: test :: form objectsÀÇ ÀνºÅϽº¿¡ ÀÇÇØ ¼³¸íµÇ´Â (ÀÚ¼¼ÇÑ ³»¿ëÀº CGI :: Test :: ¾ç½Ä ÂüÁ¶) .Forms°¡ ƯÁ¤ À¯ÇüÀÇ À§Á¬ (¸Þ´º, ÅؽºÆ® ¿µ¿ª, ¹öÆ°, ƯÁ¤ À̸§ (CGI ¸Å°³ º¯¼ö À̸§)ÀÇ µîµî. ÀÏ´Ü ¹ß°ßµÇ¸é »ç¿ëÀÚ°¡ ºê¶ó¿ìÀú¿¡¼­ »ç¿ëÀÚ°¡ ÇÒ ¶§ À§Á¬°ú »óÈ£ ÀÛ¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù. À§Á¬Àº CGI :: Test :: Form :: À§Á¬ À¯ÇüÀ» ÁؼöÇÏ´Â ´ÙÇü¼º °´Ã¼·Î ¼³¸íµË´Ï´Ù. Á¦°øµÇ´Â ƯÁ¤ »óÈ£ ÀÛ¿ëÀº °´Ã¼ÀÇ µ¿Àû À¯Çü¿¡ µû¶ó ´Ù¸¨´Ï´Ù (ÀÚ¼¼ÇÑ ³»¿ëÀº CGI :: TEST :: FORM :: À§Á¬ ÂüÁ¶). ¾ç½Ä°úÀÇ »óÈ£ ÀÛ¿ëÀº ¼­¹ö¿¡ ¾ç½Ä µ¥ÀÌÅ͸¦ Á¦ÃâÇÏ°í ´äÀåÀ» ´Ù½Ã. ÀÌ´Â Á¦Ãâ ¹öÆ°À» ´­·¯ ¼öÇàµÇ¸ç, ´©¸§ () ·çƾÀº »õ ÆäÀÌÁö¸¦ ¹ÝȯÇÕ´Ï´Ù. ´ç¿¬È÷ CGI :: Å×½ºÆ® ÇÁ·¹ÀÓ ¿öÅ© ³»¿¡¼­ ¼­¹ö°¡ ÀüÇô Á¢ÃËÇÏÁö ¾ÊÀ¸¸ç CGI :: Test Object.Finally¿¡¼­ CGI :: Test Object.Finally¿¡¼­ CGI ½ºÅ©¸³Æ®°¡ ÀûÀýÇÑ È£ÃâÀ» ÅëÇØ ½ÇÇàµË´Ï´Ù. ȸ±Í Å×½ºÆ® ½ºÅ©¸³Æ®¿¡¼­ »ç¿ëÇϱâ À§Çؼ­´Â Å×½ºÆ® :: Çϳ׽º¿¡¼­ ¿¹»óµÇ´Â ¸Þ½ÃÁö¸¦ ÀμâÇÏ´Â ´ÜÀÏ OK () ·çƾÀ» ³» º¸³À´Ï´Ù. ÀÌ°ÍÀº CGI :: Å×½ºÆ® °´Ã¼¸¦ ÅëÇØ ÀÌ·ç¾îÁö´ÂÀÌ ¸ðµâÀÇ À¯ÀÏÇÑ ±â´ÉÀû ·çƾÀÔ´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.


CGI :: Test. °ü·Ã ¼ÒÇÁÆ®¿þ¾î

ioc.

IOC Perl ¸ðµâÀº °æ·® IOC (´ëÁ¶±ºÀÇ ¹ÝÀü) ÇÁ·¹ÀÓ ¿öÅ©ÀÔ´Ï´Ù. ...

181

´Ù¿î·Îµå