net :: äÆà :: µ¥¸ó

NET :: CHAT :: DAEMONÀº ÀνºÅÏÆ® ¸Þ½Ã¡À» ÅëÇØ Á¦¾îµÇ´Â µ¥¸óÀ» ½ÇÇàÇÏ´Â PERL ¸ðµâÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

net :: äÆà :: µ¥¸ó ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Steve Fink
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~sfink/IPC-Run-Simple-1.3/lib/IPC/Run/Simple.pm

net :: äÆà :: µ¥¸ó ű×


net :: äÆà :: µ¥¸ó ¼³¸í

Net :: Chat :: DaemonÀº ÀνºÅÏÆ® ¸Þ½Ã¡À» ÅëÇØ Á¦¾îµÇ´Â µ¥¸óÀ» ½ÇÇàÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. Net :: Chat :: DaemonÀº ÀνºÅÏÆ® ¸Þ½Ã¡À» ÅëÇØ Á¦¾îµÇ´Â µ¥¸óÀ» ½ÇÇàÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. andstractÀÌ ÆÐÅ°Áö´Â Ŭ¶óÀ̾ðÆ® ³ëµåÀÇ ºÐ»ê ³×Æ®¿öÅ© ¹× Á¶Á¤ÀÚ ³»¿¡¼­ IM ¸Þ½ÃÁö¸¦ ÅëÇØ Åë½ÅÇÏ·Á´Â ¿ÀºêÁ§Æ®ÀÇ ¼öÆÛ Å¬·¡½º ¿ªÇÒÀ»ÇÏ´Â °ÍÀÔ´Ï´Ù. , º¹À⼺À̳ª ±¸ÇöÀ» ´Ù·çÁö ¾Ê°í ½ÇÁ¦·Î ¸Þ½ÃÁö¸¦ °øÆ÷·ÎÇÏ´Â ¸Þ½ÃÁö¸¦ ¾ò´Â ¼¼ºÎ »çÇ×À» ´Ù·çÁö ¾Ê°íµµ ÇÁ·ÎÅäÄÝ Á߸³Àû ÀΠôÇÏÁö¸¸ ÇöÀç¿Í ¹Ì·¡¸¦ À§Çؼ­´Â jabber ¼ö¼Û°ú ÇÔ²² ÀÛµ¿ÇÕ´Ï´Ù. (jabber°¡ ¹ÝȯÇÏ´Â ¸Þ½ÃÁö °³Ã¼¿Í »ç¹°À» Á÷Á¢ »ç¿ëÇÕ´Ï´Ù.)ÀÌ ÆÐÅ°Áö´Â ÀνºÅÏÆ® ¸Þ½Ã¡ ¼­¹ö¸¦ ±¸ÇöÇÏ´Â µ¥ µµ¿òÀ̵ÇÁö ¾Ê½À´Ï´Ù. ÀÌ ÆÐÅ°Áö´Â ÀνºÅÏÆ® ¸Þ½ÃÁö¸¦ ÅëÇØ ´Ù¸¥ ¿£Æ¼Æ¼¿Í Åë½ÅÇÏ´Â ¼­¹ö¸¦ ÀÛ¼ºÇϱâÀ§ÇÑ °ÍÀÔ´Ï´Ù.ÀÌ ÆÐÅ°Áö¸¦ »ç¿ëÇÏ¿© ÀÛ¼ºµÈ ¼­¹ö´Â ÀνºÅÏÆ® ¸Þ½Ã¡ * Ŭ¶óÀ̾ðÆ® * .Synopsis ÆÐÅ°Áö My :: Server; ±âº» 'net :: äÆà :: µ¥¸ó'À» »ç¿ëÇϽʽÿÀ. Sub Handlehello {return "Helloµµ ¾È³çÇϼ¼¿ä."; } Sub HandleSave {My ($ filename, $ file) = @_; $ filename = ~ / ^+$/ÇÏÁö ¾ÊÀ¸¸é "°ÅºÎ µÈ" "°ÅºÎ"µË´Ï´Ù. ¿­±â (MY $ FH, "> / var / var / repository / $ filename") ¶Ç´Â "½ÇÆÐ": $! "¸¦ ¹ÝȯÇÕ´Ï´Ù. $ FH $ FILE Àμâ; $ FH¸¦ ´Ý°Å³ª "½ÇÆÐ : $!"; "È®ÀÎ"À» µ¹·ÁÁÝ´Ï´Ù. } subememethod {my ($ self, @args) = @_; ...¿¡ ...¿¡ ...¿¡ } Sub New {My ($ class, $ »ç¿ëÀÚ, % ¿É¼Ç) = @_; $ class-> super :: new (% ¿É¼Ç, ¸í·É => { 'callmethod'=> somemethod ','save '=> handlesave}); } ÆÐÅ°Áö ¸ÞÀÎ; MY $ SERVER = MY :: SERVER-> NEW ( 'yuserid@jabber.org'); $ Server-> ÇÁ·Î¼¼½º (); # ¶Ç´Â ÇϳªÀÇ ´Ü°è¿¡¼­ ¸ðµç °ÍÀ» ¼öÇàÇÏ°í ¼­¹ö¿¡ µµ´ÞÇÏ´Â µ¥ ¹®Á¦°¡ ¹ß»ýÇϱâ Àü¿¡ 5 ºÐ µ¿¾È ¿¬°áÀ» ´Ù½Ã ½ÃµµÇϽʽÿÀ. My :: Server-> ½ÇÇà ( 'myuserid@jabber.org', Àç½Ãµµ => 300) );ÀÌ ±â´ÉÀ» ½ÇÇàÇϸé "Hello"¶ó´Â userid@jabber.org¿¡°Ô ¸Þ½ÃÁö¸¦ º¸³¾ ¼ö ÀÖ¾î¾ßÇϸç ÀÀ´äÀ» µÇ ã°Å³ª "CallMethod ABC"¸¦ »ç¿ëÇÏ¿© ÁÖ¾îÁø Àμö¸¦ »ç¿ëÇÏ¿© ¸Þ¼­µå¸¦ È£Ãâ ÇÒ ¼ö ÀÖ½À´Ï´Ù. "ÀúÀå "¸í·ÉÀºÀÌ ¼­¹ö°¡ ¿¹»ó ÇÑ Çü½ÄÀ¸·Î ÷ºÎ ÆÄÀÏÀ» Àü¼ÛÇÒ ¼öÀÖ´Â ¸í·É Á٠Ŭ¶óÀ̾ðÆ®¸¦ »ç¿ëÇؾßÇÕ´Ï´Ù (ÇöÀç Ç¥ÁØ ÆÄÀÏ Àü¼Û Çü½ÄÀ» »ç¿ëÇÏÁö ¾Ê´Â °æ¿ì).ÀÌ ¸ðµâ°ú ÇÔ²² ÆÐÅ°Áö µÈ jabber ¸í·ÉÀºÀÌ ¸ðµâÀ» »ç¿ëÇÏ¿© -a ¸í·É ÁÙ Option.a ±¸Çö¿¡ ´ëÇÑ Âü°í »çÇ× : óÀ½ À¸·ÎÀÌ ÀÛ¾÷À» ½èÀ» ¶§, ±×°ÍÀº ½ÇÁ¦·Î jabber¿Í ÇÔ²² »ç¿ëÇϱâÀ§ÇÑ °ÍÀÔ´Ï´Ù. ÀÌ °¡Á¤À» Á¦°ÅÇϱâ À§ÇØ Äڵ尡 ¿ÏÀüÈ÷ À籸¼ºµÇÁö ¾Ê¾Ò½À´Ï´Ù. ¡¤ Perl ¿ä±¸ »çÇ× : ¡¤ Perl.


net :: äÆà :: µ¥¸ó °ü·Ã ¼ÒÇÁÆ®¿þ¾î