IO :: Socket :: Inet :: DaeMon.

IO :: Socket :: INET :: DAEMONÀº ¸Å¿ì °£´ÜÇÏ°í Á÷¼±Àû ÀÎ TCP ¼­¹öÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

IO :: Socket :: Inet :: DaeMon. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Jonas Kramer
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~jkramer/Tie-File-Hashify-0.03/lib/Tie/File/Hashify.pm

IO :: Socket :: Inet :: DaeMon. ű×


IO :: Socket :: Inet :: DaeMon. ¼³¸í

IO :: Socket :: Inet :: DaemonÀº ¸Å¿ì °£´ÜÇÏ°í Á÷¼±Àû ÀÎ TCP ¼­¹öÀÔ´Ï´Ù. io :: socket :: inet :: daemonÀº ¸Å¿ì °£´ÜÇÏ°í Á÷¼±Àû ÀÎ TCP Server.Synopsis »ç¿ë io :: socket :: inet :: daemon; $ host = new io :: socket :: inet :: daemon (port => 5000, timeout => 20, callback => add => Ãß°¡, Á¦°Å => Á¦°Å, data => data,}); $ host-> ½ÇÇà; ÇÏÀ§ Ãß°¡ {My $ Io = Shift; $ io-> Àμâ ( "ȯ¿µ", $ IO-> ÇǾî È£½ºÆ®, ".n"); ¹Ýȯ! 0; } ÇÏÀ§ Á¦°Å {My $ IO = Shift; °æ°í $ io-> peerhost, "left.n"; } ÇÏÀ§ µ¥ÀÌÅÍ {My ($ IO, $ È£½ºÆ®) = @_; ³» $ line = $ io-> getline; $ line = ~ s / r? n //; if ($ line eq 'quit') {$ io-> Àμâ ( "bye.n"); ¹Ýȯ 0; } ELSIF ($ LINE EQ 'STOP') {$ HOST-> STOP; } else {$ Io-> Àμâ ( "´ç½ÅÀº ¾´ : $ linen"); ¹Ýȯ! 0; }}ÀÌ ¸ðµâÀº °£´ÜÇÑ TCP ¼­¹ö¸¦ Á¦°øÇÏ´Â °ÍÀ» ¸ñÇ¥·ÎÇÕ´Ï´Ù. ÁöÁ¤ÇÑ Æ÷Æ®¿¡¼­ µè°í µé¾î¿À´Â ¿¬°áÀ» ¼ö¶ôÇÏ°í Á×À» ¶§ ´Ù½Ã Á¦°ÅÇÕ´Ï´Ù. ÇöÀç 3 °³ÀÇ °£´ÜÇÑ ÄݹéÀ» Á¦°øÇÏÁö¸¸ ¸î °¡Áö¸¦ Ãß°¡ ÇÒ °èȹÀÔ´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.


IO :: Socket :: Inet :: DaeMon. °ü·Ã ¼ÒÇÁÆ®¿þ¾î

getopt :: argvfile.

getOpt :: argvfileÀº ÆÄÀÏ¿¡¼­ @argv ¶Ç´Â ´Ù¸¥ ¹è¿­·Î ½ºÅ©¸³Æ® ¿É¼ÇÀ» º¸°£ÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. ...

162

´Ù¿î·Îµå