| PoE :: Component :: Oscar POE :: Component :: Oscar´Â Net :: OSCAR ¸ðµâÀÇ POE ±¸¼º ¿ä¼ÒÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
PoE :: Component :: Oscar ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Dan McCormick
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~dmcc/POE-Component-OSCAR-0.05/lib/POE/Component/OSCAR.pm
PoE :: Component :: Oscar ű×
PoE :: Component :: Oscar ¼³¸í
PoE :: Component :: Oscar´Â Net :: OSCAR ¸ðµâÀÇ POE ±¸¼º ¿ä¼ÒÀÔ´Ï´Ù. PoE :: Component :: Oscar´Â Net :: Oscar ModuleÀÇ PoE ±¸¼º ¿ä¼ÒÀÔ´Ï´Ù. SynopsisUse PoE QW (Component :: Oscar); Sub _Start {# ½ÃÀÛ ¿À½ºÄ« ¼¼¼Ç $ Oscar ½ÃÀÛ = POE :: ±¸¼º ¿ä¼Ò :: ¿À½ºÄ« -> new (); # »õ ¿¬°áÀÇ ÀÚµ¿ ½º·ÎƲ·Î ¿À½ºÄ« ¼¼¼Ç ½ÃÀÛ # ¼¹ö°¡ ±ÝÁöµÇÁö ¾Êµµ·Ï $ OSCAR = POE :: Component :: Oscar-> New (Throttle => 4); # "im_in"ÄݹéÀ» ¼³Á¤ÇÏ¿© "im_in_state"$ oscar-> set_callback (im_in => 'im_in_state')¸¦ È£ÃâÇÕ´Ï´Ù. # ±ÝÁö µÈ $ oscar-> set_callback (error => error_state ')¸¦ ¾ò°í ½ÍÁö ¾ÊÀº °æ¿ì ¿À·ù¸¦ °¨ÁöÇÏ´Â °ÍÀÌ ÁÁ½À´Ï´Ù. $ oscar-> set_callback (admin_error => 'admin_erro_stater'); $ oscar-> set_callback (rate_alert => rate_alert_state '); # ·Î±×¿Â $ oscar-> signon (screenname => $ my_screenname, password => $ my_password);} sub im_in_state {my ($ nothing, $ args) = @_ ; My ($ °´Ã¼, $ ´©°¡, $ what, $ ¿þÀ̺ê) = @ $ args; "$ won '¿¡¼'°¡Á® °¡±â '¸¦ ÀμâÇϽʽÿÀ.} ¿ä±¸ »çÇ× : ¡¤ Perl.
PoE :: Component :: Oscar °ü·Ã ¼ÒÇÁÆ®¿þ¾î