| RPC :: Simple :: Anyremote. RPC°¡ ¾×¼¼½º ÇÒ ¼öÀÖ´Â ¿ø°Ý °´Ã¼ÀÇ Perl ±âº» Ŭ·¡½º |
Áö±Ý ´Ù¿î·Îµå |
RPC :: Simple :: Anyremote. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Clint Edwards
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~cedwards/
RPC :: Simple :: Anyremote. ű×
RPC :: Simple :: Anyremote. ¼³¸í
RPC°¡ ¾×¼¼½º ÇÒ ¼öÀÖ´Â ¿ø°Ý °´Ã¼ÀÇ Perl ±âº» Ŭ·¡½º RPC :: Simple :: AnyRemote´Â RPC.Synopsis Package MyClass°¡ ¾×¼¼½º ÇÒ ¼öÀÖ´Â ¿ø°Ý °´Ã¼ÀÇ Perl ¸ðµâÀÔ´Ï´Ù. VARS QW (@isa @rpc_sub)¸¦ »ç¿ëÇϽʽÿÀ. RPC :: Simple :: AnyRemote; @isa = ( 'rpc :: simple :: anyremote'); @rpc_sub = qw (localmethod);ÀÌ Å¬·¡½º´Â ½ÇÁ¦·Î ·ÎÄà °´Ã¼¿¡¼ È£Ãâ ÇÒ ¼öÀÖ´Â »ç¿ëÀÚ Á¤ÀÇ ¸Þ¼Òµå°¡ ´ÙÀ½ Opterial ¸Å°³ º¯¼ö¸¦ ó¸® ÇÒ ¼ö ÀÖ¾î¾ßÇÏ´Â »ç¿ëÀÚ Á¤ÀÇ ¸Þ¼Òµå°¡ ½ÇÁ¦·Î »ç¿ëÀÚÀÇ Å¬·¡½º¿¡¼ »ó¼ÓÇؾßÇÕ´Ï´Ù. 'Äݹé' => code_referceually, ¸Þ¼Òµå´Â ´ÙÀ½°ú °°½À´Ï´Ù. sub RemoteMethod {My $ self = shift; ³» $ param = shift; ³» $ Äݹé; if ($ param eq 'callback') {# Äݹé Çʼö $ callback = shift} # »ç¿ëÀÚ ÄÚµå #Àº ·ÎÄà ¿ÀºêÁ§Æ® $ self-> localmethod ( "Hey, RemoteMethod°¡ È£ÃâµÇ¾ú½À´Ï´Ù!")¿¡¼ ¸Þ¼Òµå¸¦ È£Ãâ ÇÒ ¼ö ÀÖ½À´Ï´Ù. # »ç¿ëÀÚ Äڵ尡 Á¤ÀÇ µÈ $ ÄݹéÀ̾ø´Â °æ¿ì »ç¿ëÀÚ Äڵ尡 ¹ÝȯµÇ´Â °æ¿ì; $ Äݹé ( "Hello Local Object"); } ¿ä±¸ »çÇ× : ¡¤ Perl.
RPC :: Simple :: Anyremote. °ü·Ã ¼ÒÇÁÆ®¿þ¾î