9 сентября 2009, 15:08
#! /usr/bin/perl -w use strict; use Socket; my $port = shift || 82; my $proto = getprotobyname ('tcp'); socket (SERVER, PF_INET, SOCK_STREAM, $proto) or die «socket: $!»; setsockopt (SERVER, SOL_SOCKET, SO_REUSEADDR, 1) or die «setsock: $!»;
8 сентября 2009, 13:36
#!/usr/bin/perl -w use strict; use Term::ANSIColor; use Time::HiRes qw[usleep]; if (defined ($ARGV[0]) && $ARGV[0]!~/^\d+$/){ print color 'reset'; exit; } my $num = 2000; # сколько раз крутить my $strlen = 20; # длина строки my $length = 10000; # чем больше — тем дольше будет «вычисляться» строка
4 сентября 2009, 17:00
Для одной мерзкой цели потребовалось ходить в ЖЖ через HTTP — так удобней парсить некоторые вещи. Собственно, сниппет под катом. Пара слов о куках. Мне стало уже лениво писать под них лишние регулярки — но список их следующий: ljuniq ljmastersession ljloggedin BMLschemepref (схема кстати — кому хочется обратно dystopia — просто смените эту куку) langpref ljsession ljdomsess.{username} — у меня, […]
4 сентября 2009, 14:03
Берём поисковый таймлайн по слову, к примеру, ru_followfriday и френдим всех кого ещё не френдим. В минуту в среднем можно делать 2-3 запроса — поэтому спим с рандомчиком. #!/usr/bin/perl -w use strict; use WWW::Curl::Easy; my $login = q[skazkin]; my $password = q[];
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[];