Recent Posts
Recent Comments
Link
12-02 12:18
동글동글 라이프
[ Busan Secmem Hackathon ] Twitter followers에 대한 통계내기 본문
이번주 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/
'개발자 이야기 > Perl' 카테고리의 다른 글
[KPW2012] Notepad Letter (7) | 2012.10.24 |
---|---|
[KPW2012] Korean Perl Workshop 2012 - 초대합니다 :) (1) | 2012.10.11 |
2010 Korea Perl Advent Calendar (3) | 2010.12.01 |
perl URI::Escape 모듈 (4) | 2010.11.10 |
Naver Perl 카페회원 1000명을 돌파! (10) | 2010.09.13 |
Comments