Recent Posts
Recent Comments
12-02 12:18
관리 메뉴

동글동글 라이프

[ Busan Secmem Hackathon ] Twitter followers에 대한 통계내기 본문

개발자 이야기/Perl

[ Busan Secmem Hackathon ] Twitter followers에 대한 통계내기

동글동글라이프 2011. 3. 18. 19:06

이번주 Secmem Hackathon 의 주제는 "Twitter" 였습니다.

이 주제를 통해 자유롭게 코드를 짜는 경합을 벌였고,

장소는 서면의 NOH'S ESPRESSO 커피샵에서 진행되었습니다.



저는 예전에 싸이월드 방명록에서

방명록을 쓴 사람들의 순위를 매겨주는 프로그램이 생각이 나서,

일정 기간동안 가장 많이 말을 한 사람들의 순위와

통계를 매겨주는 프로그램을 작성해보았습니다.


Net::Twitter::Lite 를 사용할때 작은 문제점이 있습니다.

이전에 @nan1004au 님이 한번 언급하셨는데

트위터 개발자 센터에서 키를 받아야 모듈이 사용 가능합니다.


그 문제를 해결하려면 여기 를 클릭하시면 해결 할 수 있습니다.

https://dev.twitter.com/ 에 가셔서 키를 받으시면 아래와 같이 생성이 됩니다.




코드는 아래와 같습니다.





1위에서 5위까지의 순위를 횟수와 퍼센트 별로 통계를 내어 트윗을 날려줍니다.




아래와 같이 순위별로 Google Chart 를 이용해서 순위별로 그래프도 출력해줍니다.



운영체제 환경은 윈도우7 이며,
콘솔창에서 실행되는 환경이라 인코딩 및 디코딩 함수를 사용하였습니다.
리눅스에서 실행하시는 분들은 따로 인코딩을 설정해주셔야합니다.


- 참고자료

Perl Module

- Net::Twitter::Lite
   http://search.cpan.org/~mmims/Net-Twitter-Lite-0.10003/lib/Net/Twitter/Lite.pm 
- URI::GoogleChart
   http://cpansearch.perl.org/src/GAAS/URI-GoogleChart-1.02/examples.html

Google Chart
http://code.google.com/intl/ko-KR/apis/chart/docs/gallery/pie_charts.html

twitter 
개발자 센터 : https://dev.twitter.com/



Comments