| À̺¥Æ® :: RPC :: Client. Ŭ¶óÀ̾ðÆ® API À̺¥Æ® :: RPC ¼¹ö¿¡ ¿¬°áÇÕ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
À̺¥Æ® :: RPC :: Client. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~jred/
À̺¥Æ® :: RPC :: Client. ű×
À̺¥Æ® :: RPC :: Client. ¼³¸í
À̺¥Æ® :: RPC ¼¹ö¿¡ ¿¬°áÇϴ Ŭ¶óÀ̾ðÆ® API. À̺¥Æ® :: RPC :: Client´Â À̺¥Æ®¿¡ ¿¬°áÇÒ ¼öÀִ Ŭ¶óÀ̾ðÆ® APIÀÔ´Ï´Ù. :: RPC Servers.Synopsis À̺¥Æ® :: RPC :: Client; $ rpc_client = À̺¥Æ® :: rpc :: client-> new (# - Çʼö Àμö host => "localhost", port => 5555, # - ¼±ÅÃÀû Àμö classes => , class_map => { "À̺¥Æ® :: rpc :: test"=> "my :: event :: rpc :: test"}, ssl => 1, timeout => 10, auth_user => "fred", auth_pass = > À̺¥Æ® :: rpc-> crypt ( "FRED", $ password), error_cb => sub {my ($ Ŭ¶óÀ̾ðÆ®, $ error) = @_; Àμâ "Àμâ"rpc ¿À·ù°¡ ¹ß»ýÇß½À´Ï´Ù : $ error "$ Client-> ¿¬°á ²÷±â; exit;},); $ rpc_client-> connect; # - ÀÌÁ¦ Ŭ·¡½º¿Í ¸Þ¼Òµå¸¦ »ç¿ëÇÏ¿© ¼¹ö # - RPC¸¦ ÅëÇØ ¾×¼¼½º ÇÒ ¼ö ÀÖ½À´Ï´Ù. ¿©±â¼ My :: TestModule #¿¡¼. À̺¥Æ® :: RPC :: ¼¹ö ¸Ç ÆäÀÌÁö SynPosis. My $ OBJ = My :: TestModule-> New (data => "foobar"); Àμâ "obj´Â Hello :". $ obj-> ¾È³çÇϼ¼¿ä. " "; $ obj-> set_data ("»õ·Î¿î foobar ");"¾÷µ¥ÀÌÆ® µÈ µ¥ÀÌÅ͸¦ ÀμâÇϽʽÿÀ. ". $ obj-> get_data." "; $ rpc_client-> ¿¬°á ÇØÁ¦;ÀÌ ¸ðµâÀ» »ç¿ëÇÏ¿© event :: rpc ±â¹Ý ¼¹ö°¡ ³» º¸³½ ¿ÀºêÁ§Æ® ¹× ¸Þ¼Òµå¿¡ ¾×¼¼½ºÇϴ Ŭ¶óÀ̾ðÆ®¸¦ ÀÛ¼ºÇϽʽÿÀ. Ŭ¶óÀ̾ðÆ®¿¡ ·ÎÄ÷ΠÆ÷ÇÔÇϴ Ŭ·¡½º ¹× ¹æ¹ýÀÔ´Ï´Ù. À̺¥Æ® :: RPC ±â¹Ý ÀÀ¿ë ÇÁ·Î±×·¥ÀÇ ¾ÆÅ°ÅØó¿¡ ´ëÇÑ ÀÏ¹Ý Á¤º¸´Â ´ÙÀ½ ¹®¼¿¡¼ ´ÙÀ½ ¼³¸í¼¿¡ ´ëÇØ ÀÚ¼¼È÷ ¼³¸íÇÕ´Ï´Ù. ¿ä±¸ »çÇ× : ¿ä±¸ »çÇ× : ¿ä±¸ »çÇ× : ¡¤ Perl.
À̺¥Æ® :: RPC :: Client. °ü·Ã ¼ÒÇÁÆ®¿þ¾î