Копал-копал и нашёл как сделать Google Maps статичной картинкой. Поддерживается до 640×640, формат — .gif Ссылка вида http://maps.google.com/staticmap?center=Координаты&zoom=Зум&size=ШиринаxВысота&markers=Координаты маркера по желанию

Хозяйке на заметку: Два+ пробела заменяются не так: perl -le ‘use Data::Dumper; my $x = «abc bca \n \t abc bca»; $x =~ s/\s{2,}/ /g; print Dumper $x’ $VAR1 = ‘abc bca abc bca’; Два+ пробела заменяются так: perl -le ‘use Data::Dumper; my $x = «abc bca \n \t abc bca»; $x =~ s/[[:blank:]]{2,}/ /g; […]

#! /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: $!»; my $paddr = sockaddr_in($port, INADDR_ANY); bind(SERVER, $paddr) or die «Failed bind: $!»; listen(SERVER, SOMAXCONN) or die «Failed listen: $!»; print «Daemon started […]

#!/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; # чем больше — тем дольше будет «вычисляться» строка $num = $ARGV[0] if $ARGV[0] =~ /^\d+$/; $strlen = $ARGV[1] […]

Для одной мерзкой цели потребовалось ходить в ЖЖ через HTTP — так удобней парсить некоторые вещи. Собственно, сниппет под катом. Пара слов о куках. Мне стало уже лениво писать под них лишние регулярки — но список их следующий: ljuniq ljmastersession ljloggedin BMLschemepref (схема кстати — кому хочется обратно dystopia — просто смените эту куку) langpref […]

Берём поисковый таймлайн по слову, к примеру, ru_followfriday и френдим всех кого ещё не френдим. В минуту в среднем можно делать 2-3 запроса — поэтому спим с рандомчиком. #!/usr/bin/perl -w use strict; use WWW::Curl::Easy; my $login = q[skazkin]; my $password = q[]; my $href = qq[http://search.twitter.com/search.atom?lang=en&q=ru_followfriday&rpp=100]; my $result = callTwitter({href=>$href}); my (@toFollow, $followed); if($result->{content}){ while($result->{content} […]

#!/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 […]

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

Предположим, что сегодня — 31 августа. <script type=»text/javascript»> var d=new Date(); d.setUTCMonth(0); document.write(d); </script> Логично предположить что это выдаст январь. Попробуем <script type=»text/javascript»> var d=new Date(); d.setUTCMonth(1); document.write(d); </script> Казалось бы — февраль? А нет, на дворе март. Играемся со втормы параметром. <script type=»text/javascript»> var d=new Date(); d.setUTCMonth(1,0); document.write(d); </script> Вот и январь опять вернулся. […]

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