ºñ´°¹° ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~robman/
ºñ´°¹° ű×
ºñ´°¹° ¼³¸í
Bloat¿Í Jr.°¡¾ø´Â ºñ´© SOAPJRÀº ÀûÀýÇÑ ¿À·ù ó¸® ¹× ÆÄÀÏ ¾÷·Îµå°¡ÀÖ´Â Bloat¿Í JR (JSON-RPC)À̾ø´Â SOAPÀÔ´Ï´Ù. 1.Synopsis °³¿ä -------- 1. ¿äû ¸Þ½ÃÁö¸¦ ¼ö½ÅÇϽʽÿÀ. 3. ÇÁ·Î¼¼½º ¿äû ¸Þ½ÃÁö À¯È¿¼ºÀ» °Ë»çÇÕ´Ï´Ù. ÀÀ´ä ¸Þ½ÃÁö 5. ÀÀ´ä ¸Þ½ÃÁö¸¦ ±¸¼ºÇϽʽÿÀ. # - SOAPJR ¼¹ö °³Ã¼ »ý¼º # Âü°í : ÀÌ°ÍÀº Ŭ¶óÀ̾ðÆ® Ãø¿¡¼ jQuery¿Í µ¿ÀÏÇϸç Apache Perl_startup.pl ½ºÅ©¸³Æ®¿¡¼ »ý¼º µÉ ¼ö ÀÖÀ¸¹Ç·Î ³» $ server = soapjr-> »õ ($ ¿É¼Ç); # 1. ¿äû ¸Þ½ÃÁö ¼ö½Å # - Perl ½ºÅ©¸³Æ®°¡ Á÷Á¢ ¶Ç´Â Çڵ鷯 # ¿¹¸¦ µé¾î Çڵ鷯·Î È£ÃâµË´Ï´Ù. / soapjr.pl # 2.ÀÌ ¿äû¿¡ ´ëÇÑ Àιٿîµå ¿äû °´Ã¼¸¦ ÀÛ¼ºÇϽʽÿÀ.ÀÌ ¿äû¿¡ ´ëÇÑ $ Request = $ Server-> create_request ($ query_params_hashref, \ % env); # -ÀÌ Àιٿîµå ¿äû °´Ã¼¿¡ ´ëÇÑ ¼³Á¤À» ¼³Á¤ $ Request-> set ({options => { "..."=> "..."}}); # 3. ÇÁ·Î¼¼½º ¿äû ¸Þ½ÃÁö # °³¹ß ±¸ÇöÀÌ ÀϾ´Ï´Ù. # - ¿äû ÇÁ·Î¼¼½º ±×·¯³ª # 4. # 4. ÀÀ´ä ¸Þ½ÃÁö ÀÛ¼º # 4. ÀÀ´ä °³Ã¼¸¦ ¸¸µé ¶§ $ ÀÀ´ä = $ self-> create_response ({envelope => { "option1"=> "xxx"}}); # 5. ÀÀ´ä ¸Þ½ÃÁö ±¸¼º $ - ÀÀ´ä °ª Áß Çϳª¸¦ ¼³Á¤ $ ÀÀ´ä -> set ({head => { "option1"=> "}, body => {"¿É¼Ç 1 "=>"lll "}} ); # 6. ÇÊ¿ä¿¡ ÇÊ¿äÇÑ ¿À·ù¸¦ Ãß°¡ÇϽʽÿÀ. $ ¿äûÀÇ Ã³¸®°¡ ¿À·ù°¡ ¹ß»ýÇϸé $ Response-> add_error () # ¿¹¸¦ µé¾î Ãß°¡ÇϽʽÿÀ. # $ s = $ r-> add_error ({# context => head ", property =>"sid ", # ¿À·ù => {# code => 401, # message =>" "À߸øµÈ ¼¼¼Ç ID"#} }); # Âü°í : $ s (¿¹ : add_error ()ÀÇ ¹Ýȯ)Àº ¿À·ù°¡ Ãß°¡ µÈ ÈÄ ÇöÀç °´Ã¼ÀÇ serialised_stringÀÔ´Ï´Ù # 7. ÀÀ´ä ¸Þ½ÃÁö # - ÀÀ´ä ¸Þ½ÃÁö¸¦ º¸³»¸é $ send_result = $ ÀÀ´ä -> send ({head => { "option1"=> "ddd"}, body => { "option1"=> "lll"}); # $ ÀÀ´ä -> Ãâ·Â ()À» »ç¿ëÇÏ¿© ¾ðÁ¦µçÁö °´Ã¼ÀÇ Á÷·ÄÈ µÈ ¹®ÀÚ¿À» °¡Á®¿Ã ¼ö ÀÖ½À´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
ºñ´°¹° °ü·Ã ¼ÒÇÁÆ®¿þ¾î