| WebService :: NFSN :: Account. WebService :: NFSN :: °èÁ¤Àº NFSN °èÁ¤ Á¤º¸¿¡ ¾×¼¼½º ÇÒ ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
WebService :: NFSN :: Account. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Christopher J. Madsen
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://www.cjmweb.net/utilities/#perlver
WebService :: NFSN :: Account. ű×
WebService :: NFSN :: Account. ¼³¸í
WebService :: NFSN :: °èÁ¤Àº NFSN °èÁ¤ Á¤º¸¿¡ ¾×¼¼½º ÇÒ ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. WebService :: NFSN :: °èÁ¤Àº NFSN °èÁ¤ Á¤º¸¿¡ ¾×¼¼½º ÇÒ ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù .Snopsis WebService :: NFSN; ³» $ nfsn = webservice :: nfsn-> »õ ($ »ç¿ëÀÚ, $ api_key); MY $ BALANCE = $ NFSN-> °èÁ¤ ($ Account_ID) -> Àܾ×; webservice :: nfsn :: °èÁ¤Àº LearlyFreespeech.net °èÁ¤ API¿¡ ´ëÇÑ ¾×¼¼½º¸¦ Á¦°øÇÕ´Ï´Ù. DoneLyfreespeech.net.interface $ °èÁ¤ ($ Account_ID)¿¡¼ È£½ºÆÃÇÏ´Â À¥ »çÀÌÆ®¸¦ °¡Áø »ç¶÷µé¿¡°Ô¸¸ À¯¿ëÇÕ´Ï´Ù. $ Account = webservice :: nfsn :: °èÁ¤ -> new ($ nfsn, $ Account_ID) .properties $ °èÁ¤ -> ÀÜ¾× () Çö±Ý°ú Å©·¹µ÷ °£ÀÇ ±¸ºÐ¿¡ °üÇؼ´Â ÇöÀç »ç¿ë °¡´ÉÇÑ °èÁ¤ Àܾ×À» ¹ÝȯÇÕ´Ï´Ù. $ °èÁ¤ - > BalanceCash () ÇöÀç °èÁ¤ Çö±Ý Àܾ×À» µ¹·ÁÁÝ´Ï´Ù. $ °èÁ¤ -> balanceCredit () ÇöÀç °èÁ¤ Å©·¹µ÷ ±ÕÇüÀ» ¹ÝȯÇÕ´Ï´Ù. ½Å¿ë Àܾ×Àº ºñ±¸·ÂÀ̾ø´Â ÀÚ±ÝÀ» ³ªÅ¸³À´Ï´Ù. $ Account-> loformHigh ()ÀÌ °èÁ¤¿¡ ´ëÇØ ±â·Ï µÈ ÃÖ°íÀÇ °èÁ¤ Àܾ×À» ¹ÝȯÇÕ´Ï´Ù. ÀÌ´Â ±ÕÇü µî·Ï Á¤º¸¿Í °ü·ÃÇÏ¿© °èÁ¤ÀÇ »ó´ëÀû »óŸ¦ °áÁ¤ÇÒ ¼ö ÀÖ½À´Ï´Ù (¿¹ : ¹éºÐÀ²). $ °èÁ¤ -> FriendlyName () °èÁ¤ Ä£ÈÀû ÀÎ À̸§À» °¡Á® ¿À°Å³ª ¼³Á¤ÇÕ´Ï´Ù. ´õ Ä£±ÙÇÑ 12 ÀÚ¸® °èÁ ¹øÈ£. ¿¹¸¦ µé¾î µÎ °³ÀÇ °èÁ¤ÀÌÀÖ´Â °æ¿ì ÇϳªÀÇ "°³ÀÎ"°ú ´Ù¸¥ "ºñÁî´Ï½º"¶ó´Â À̸§À» ÁöÁ¤ÇÒ ¼ö ÀÖ½À´Ï´Ù. API È£Ãâ¿¡¼ °èÁ¤ Ä£¼÷ÇÑ À̸§À» »ç¿ëÇÒ ¼ö ¾ø½À´Ï´Ù. ±×°ÍÀº Àΰ£¿¡ ÀÇÇؼ¸¸ ÀÐ°í ±¸¹® ºÐ¼®ÇϱâÀ§ÇÑ °ÍÀÔ´Ï´Ù. Ä£¼÷ÇÑ À̸§Àº 1°ú 64 ÀÚ »çÀÌ ¿©¾ßÇÏ¸ç ´Ü¼øÇÑ ÇʵåÀÔ´Ï´Ù. ±×°ÍÀº ¸ðµç °èÁ¤¿¡¼ °íÀ¯ÇؾßÇÕ´Ï´Ù (±×·¯³ª ´Ù¸¥ ȸ¿øÀº µ¿ÀÏÇÑ À̸§ÀÇ À̸§À¸·Î °èÁ¤ÀÌÀÖÀ» ¼ö ÀÖÀ½). $ °èÁ¤ -> status () °èÁ¤ÀÇ »óÅ¿¡ ´ëÇÑ ÀÏ¹Ý Á¤º¸¸¦ Á¦°øÇÏ´Â °èÁ¤ »óŸ¦ ¹ÝȯÇÕ´Ï´Ù. ¹Ýȯ µÈ °ªÀº ´ÙÀ½ ¿ä¼Ò¿Í ÇÔ²² Çؽà ÂüÁ¶ : Status.shorta 2-4 ¹®ÀÚ¸¦ ¼³¸íÇÏ´Â StatusA ÅؽºÆ® StatusÀÇ ´ë¹®ÀÚ ¾à¾î. $ Account-> sessage ()´ÂÀÌ °èÁ¤°ú °ü·ÃµÈ »çÀÌÆ® ¸ñ·ÏÀ» ¹ÝȯÇÕ´Ï´Ù. (ªÀº À̸§ÀÇ ¹è¿ ÂüÁ¶) .methods $ °èÁ¤ -> addwarning (balance => $ balancal) °èÁ¤¿¡ ÀÜ¾× °æ°í°¡ Ãß°¡µÇ¹Ç·Î ±ÕÇüÀÌ $ ±ÕÇü ÀÌÇÏ·Î ¶³¾îÁö¸é À̸ÞÀÏÀÌ Àü¼ÛµË´Ï´Ù. $ ±ÕÇüÀº $ Account-> remodedwarning (±ÕÇü => $ Àܾ×)¿¡ ÁöÁ¤µÈ ±àÁ¤Àû ÀÎ ´Þ·¯ °ªÀÌ µÇ½Ê½Ã¿À. $ Account-> remodedwarning (±ÕÇü => $ Àܾ×). $ ±ÕÇüÀº ±âÁ¸ ÀÜ°í °æ°íÀÇ ´Þ·¯ °ªÀ̾î¾ßÇÕ´Ï´Ù. ½ÊÁø¼ö. ¿ä±¸ »çÇ× : ¡¤ Perl. ¡¤ ´ÙÀÌÁ¦½ºÆ® :: Sha1. ¡¤ ¿¹¿Ü :: ¼ö¾÷ ¡¤ JSON :: XS. ¡¤ LWP. ¡¤ URI.
WebService :: NFSN :: Account. °ü·Ã ¼ÒÇÁÆ®¿þ¾î