Net :: Plurk. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Cheng-Lung Sung
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~clsung/
Net :: Plurk. ű×
Net :: Plurk. ¼³¸í
Perl Purk API¿¡ ´ëÇÑ Perl ÀÎÅÍÆäÀ̽º Net :: Plurk´Â ¸ðµâÀÌ ¼öÇàÇÏ´Â °Í¿¡ ´ëÇÑ Plurk API.SynopsIsquick ¿ä¾àÀÇ Perl ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù. ÀÛÀº ÄÚµå ½º ´ÏÆê. Net :: Plurk; MY $ API_KEY = $ PRURKAPIKEY // "DKKIDUCOHO7VUDPJD3ZE0BRVDM5A9SQI"; ³» $ »ç¿ëÀÚ = $ PRULKUSER // '¾Æ¹«µµ ¾øÀ½'; ³» $ PASS = $ PRULKPASS // 'NOPASS'; MY $ P = NET :: PRUNK-> NEW (API_KEY => $ API_KEY); MY $ ÇÁ·ÎÇÊ = $ P-> ·Î±×ÀÎ (USER => $ USER, PASS => $ PASS); $ p-> add_events (on_new_plurk => sub {my $ plurk = shift; Data :: Dumper; Dumper $ Prurk;}, on_private_plurk => sub {my $ plurk = shift; # blah}); $ p-> µè±â; MY $ JSON = $ P-> API (°æ·Î => '/ API'); ... ¿ä±¸ »çÇ× : ¡¤ Perl.
Net :: Plurk. °ü·Ã ¼ÒÇÁÆ®¿þ¾î