Вызывается с параметром тег [сколько записей смотреть на предмет твиттерчан, по умолчанию 100] Типа perl script.pl followfriday 80 — пролистает 80 последних записей ленты и вычленит из них все встречающиеся ники, которые потом поделит на посты до 140 символов. Запись в кроне, соответственно — # пятница 10 16 * * 5 perl script.pl followfriday # […]

Цель скрипта проста — он берёт последние 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}); […]

Не знаю насколько нова идея — но подумал и сразу изобразил. Суть в том, чтобы пойти от обратного по идее — лишнее поле для бота. Только заполнять поле самим и на JavaScript. Если поле не приходит — значит POST или GET отправлялся напрямую. Ну и JS ещё не все умеют обрабатывать. Конечно, не спасает от […]

В свете последних событий насчёт Вконтакте — выложенный дамп 130 тысяч пользовательских логинов и паролей — получение кук с Яндекса — таких почт в этом дампе около 13 тысяч. sub yandexLogin { my ($login, $password, $ip) = @_; croak('Login needed') if !$login; croak('Login needed') if !$password; $login =~ s/@.*//; $password = uri_escape($password); my $ag = […]