net :: pingfm. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://www.draxil.uklinux.net/
net :: pingfm. ű×
net :: pingfm. ¼³¸í
Perl¿¡¼ Ping.fm°ú »óÈ£ ÀÛ¿ëÇÕ´Ï´Ù net :: pingfmÀº http://ping.fm/.synopsis¿¡ °Ô½ÃÇÏ´Â perl ¸ðµâÀÔ´Ï´Ù. ¿ì¸®¿Í API Å°¸¦ »ç¿ëÇÏ¿© pingfm °´Ã¼¸¦ ¸¸µå½Ê½Ã¿À : my $ pfm = net :: pingfm-> new (user_key => blah ') , api_key => 'foo'); # Å°°¡ ÁÁ¾ÆÇÏ´Â °ÍÀ» È®ÀÎÇϽʽÿÀ (´ç½ÅÀº ÀÌ°ÍÀ» ÇÒ ÇÊ¿ä°¡ ¾ø½À´Ï´Ù!) $ PFM-> user_validate ¶Ç´Â die 'ping.fm¿¡ ·Î±×ÀÎ ÇÒ ¼ö ¾ø½À´Ï´Ù!'; # ¿ì¸®ÀÇ ±âº» ¹æ¹ýÀ» »ç¿ëÇÏ¿© °Ô½Ã¹°À» ¸¸µå½Ê½Ã¿À : $ pfm-> post ( 'hello ping.fm!'); # microblog post : $ pfm-> post ( 'Å×½ºÆ® net :: pingfm', {method => microblog '}); # Á¦¸ñ°ú ¸ðµç °ÍÀ» °¡Áø ÁøÂ¥ ºí·Î±× °Ô½Ã¹°À» ¸¸µå½Ê½Ã¿À! $ PFM-> POST ( 'Testing Net :: Pingfm. Áñ°Å¿î ½Ã°£ :', {method => 'blog', title => testing testing! '}); # °èÁ¤ÀÇ ¼ºñ½º ¸ñ·ÏÀ» ¾òÀ¸½Ê½Ã¿À : my @services = $ pfm-> ¼ºñ½º; ¿ä±¸ »çÇ× : ¡¤ Perl.
net :: pingfm. °ü·Ã ¼ÒÇÁÆ®¿þ¾î