| Ç»Áî :: ¼¹ö FUSE :: SERVER´Â PERL-FUSE ¼¹öÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
Ç»Áî :: ¼¹ö ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- 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.
Ç»Áî :: ¼¹ö °ü·Ã ¼ÒÇÁÆ®¿þ¾î