Ç»Áî :: ¼­¹ö

FUSE :: SERVER´Â PERL-FUSE ¼­¹öÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

Ç»Áî :: ¼­¹ö ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Cal Henderson
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~iamcal/

Ç»Áî :: ¼­¹ö ű×


Ç»Áî :: ¼­¹ö ¼³¸í

FUSE :: Server´Â Perl-Fuse ¼­¹öÀÔ´Ï´Ù. FUSE :: SERVER´Â PERL-FUSE SERVERÀÔ´Ï´Ù. SYNOPSIS´Â FUSE :: SERVER¸¦ »ç¿ëÇÕ´Ï´Ù. MY $ S = FUSE :: SERVER-> NEW ({PORT => 35008, MAXCLINETS => 5000, QUIET => 1,}); ³» $ status = $ s-> bind (); "¼­¹ö ½ÃÀÛ : $ status"Àμâ; $ S-> addCallback ( 'broadcastall', msg_broadcast); $ S-> addCallback ( 'client_start', msg_client_start); $ S-> defaultCallback (Unknown_Command); $ sig {int} = $ sig {term} = $ sig {hup} = sub {$ s-> stop ();}; $ S-> ½ÃÀÛ (); sub msg_broadcast {my ($ userID, $ msg, $ params) = @_; ³» @a = split ///, $ params; $ S-> SENDALL ($ a , $ a ); } sub msg_client_start {my ($ userID, $ msg, $ params) = @_; $ s-> send ($ userid, secret_key ','123456789 '); } Sub Unknown_command {My ($ userID, $ msg, $ params) = @_; "¾Ë ¼ö¾ø´Â ¸í·É $ msgn"À» ÀμâÇϽʽÿÀ. } ¿ä±¸ »çÇ× : ¡¤ Perl.


Ç»Áî :: ¼­¹ö °ü·Ã ¼ÒÇÁÆ®¿þ¾î