статистика по пробке
лето подошло к концу:( и к этому моменту кадабровчане успели написать в пробке 2770 непустых не повторяющихся комментариев (17.06-30.08).
Обычно наименьшая активность наблюдалась в период с двух часов ночи до одиннадцати утра, видимо за это время они успевают поспать и постоять в настоящих пробках. Кстати ещё не было написано ни одного комментария в период с 6 до 7 утра. Уже с полудня кадабровчане начинают недобросовестно выполнять свою работу и всё чаще посещают сабжевый раздел любимого сайта. А уж когда начальство уходит на обед (с часу до трёх) пробка на кадабре вытягивается нешуточная). В 8-9 вечера значительное число кадабровчан опять встаёт в настоящую пробку, а по приезду домой сразу же бежит общаться в адабравскую пробку. И наконец с нулей до часу все друг другу с пеной у рта рассказывают страшные сказки на ночь.
Статистика по дням недели чётко отражает ситуацию на дорогах в летнее время: в пятницу не протолкнуться, на выходных - свободно.
В качестве бонуса доска флудеров бедолаг вечно торчащих в пробке.
top-10
Обычно наименьшая активность наблюдалась в период с двух часов ночи до одиннадцати утра, видимо за это время они успевают поспать и постоять в настоящих пробках. Кстати ещё не было написано ни одного комментария в период с 6 до 7 утра. Уже с полудня кадабровчане начинают недобросовестно выполнять свою работу и всё чаще посещают сабжевый раздел любимого сайта. А уж когда начальство уходит на обед (с часу до трёх) пробка на кадабре вытягивается нешуточная). В 8-9 вечера значительное число кадабровчан опять встаёт в настоящую пробку, а по приезду домой сразу же бежит общаться в адабравскую пробку. И наконец с нулей до часу все друг другу с пеной у рта рассказывают страшные сказки на ночь.
Статистика по дням недели чётко отражает ситуацию на дорогах в летнее время: в пятницу не протолкнуться, на выходных - свободно.
В качестве бонуса доска флудеров бедолаг вечно торчащих в пробке.
top-10
Помню, давно пытался подружить его с flashом
$tillid = 0 //счетчик псто
$url = "http://autokadabra.ru/ajax/jam/load/?tillid="
$content = ""
while ($tillid ne 2048) { //на текущий момент
$content += get($url.$tillid);
$tillid += 20;
}
как-то так
#! /usr/bin/perl
use LWP::Simple;
my $tillid = 20;
my $url = "http://autokadabra.ru/ajax/jam/load/?tillid=";
my $content = "";
open FILE, ">jam.csv" or die $!;
binmode FILE, ":utf8";
print FILE "type,id,"."type,text,"."type,user_id,"."type,user_login,"."type,time_created,"."type,time_created_humanized,"."type,user_avatar"."\n";
while ($tillid <= 2860) {
$content = get($url.$tillid);
$content =~ s/\\\\\"\,\"/\"\,\"/g;
$content =~ s/\\\"/\"\"/g;
$content =~ s/\"\:\"/\"\,\"/g;
$content =~ m/\{\"shouts\"\:\[\{(.*)\}\]\,\"messages\"\,\"ok\"\}/;
foreach (reverse(split(/\}\,\{/, $1))) {
print FILE "$_\n";
}
$tillid += 20;
}
close FILE;