2 сентября 2009, 11:23
#!/usr/bin/perl -w use strict; use Digest::MD5 qw(md5_hex); use WWW::Curl::Easy; use URI::Escape; use Carp qw[croak]; use Text::Iconv; my $twitter_login = q[skazkin]; my $twitter_password = q[]; my $vkontakte_login = q[e@mail]; my $vkontakte_password = q[]; my $tmp_file = q[/tmp/v2t.tmp]; my $converter = Text::Iconv->new(q[windows-1251], qq[UTF8]); my $check_hash = q[]; if(-e $tmp_file){ open FF, qq[ q[http://vkontakte.ru/login.php], referer => q[http://vkontakte.ru/index.php], headers_list […]
31 августа 2009, 16:51
Вызывается с параметром тег [сколько записей смотреть на предмет твиттерчан, по умолчанию 100] Типа perl script.pl followfriday 80 — пролистает 80 последних записей ленты и вычленит из них все встречающиеся ники, которые потом поделит на посты до 140 символов. Запись в кроне, соответственно — # пятница 10 16 * * 5 perl script.pl followfriday # […]
28 августа 2009, 10:03
Цель скрипта проста — он берёт последние 50 записей, выдирает оттуда твиттерчан и постит их ники под тегом #followfriday ) #!/usr/bin/perl -w use strict; use WWW::Curl::Easy; use Data::Dumper; use URI::Escape; my $login = q[skazkin]; my $password = q[password]; my $href = «http://twitter.com/statuses/friends_timeline.xml?count=50»; my $message_dummy = «#followfriday «; my (@posts, %tmp, @people); my $lenta = callTwitter({href=>$href}); […]