| Net :: Digg. DIGG API¿Í ½Å¼ÓÇÏ°Ô ¼ÒºñÇÏ°í ÀÎÅÍÆäÀ̽ºÇÕ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
Net :: Digg. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://www.tc.umn.edu/~wilm0044/digg/
Net :: Digg. ű×
Net :: Digg. ¼³¸í
Digg API¿Í ½Å¼ÓÇÏ°Ô ¼ÒºñÇÏ°í ÀÎÅÍÆäÀ̽ºÇÕ´Ï´Ù NET :: DIGG´Â DIGG API.SNOPSIS¿Í ½Å¼ÓÇÏ°Ô ¼ÒºñÇÏ°í ÀÎÅÍÆäÀ̽ºÇÏ´Â PERL ¸ðµâÀÔ´Ï´Ù. NET :: DIGG; ³» $ digg = net :: digg-> new (); # ÃֽŠ´Ù°¡¿À´Â À̾߱⸦ Á¦Ãâ ÇÑ »ç¿ëÀÚ¸¦ ÀμâÇϽʽÿÀ. $ result = $ digg-> get_upcoming_stories (); $ result -> {stories '} -> {title'}; # 20 ÃÖ½ÅÀÇ °´½ÇÀÇ Á¦¸ñÀ» ÀμâÇϽʽÿÀ my % params = ( 'count'=> 20); $ result = $ digg-> get_popular_stories (\ % params); MY $ Stories = $ °á°ú -> { 'Stories'}; foreach $ sorts (@ $ stories) {Àμâ $ story -> { 'title'}. ...¿¡ " ";} ¿ä±¸ »çÇ× : ¡¤ Perl.
Net :: Digg. °ü·Ã ¼ÒÇÁÆ®¿þ¾î