Сонник

2 веселые, умные кошечки ищут своих хозяев. К туалету приучены. Мама умница и красавица, всему дочек уже научила.
Кого интересуют пишите или звоните тел. 8-920-903-28-17 , аська - 260-138-123. Доставка бесплатно!!!


PS: Люди добрые! Возьмите кто-нибудь. Так жалко их в приют отдавать!!! Съедят ведь!

в продолжение http://community.livejournal.com/ru_highload/86584.html

имеем более менее тормозной сайт на движке медиавики

тестовая страница в основном смотрит инфу в мемкеше, немного из mysql (это другой сервер, тот же самый в обоих случаях)

время генерации одной страницы:
апач: ~1.5 сек
нджинкс: ~0.8 сек

а под нагрузкой все наоборот:

( Read more... )

где копать???

дополнение 1:
оказалось, что суммарное время одинаковое - по 80 секунд (у апача 82)

так что вся разница в распределении времени. апач некоторые страницы отдает быстрее, зато некоторые очень долго, а у нгинкса разброс меньше

День добрый!
Кто-нибудь может посоветовать во Владимире практикующего психотерапевта?
Именно психотерапевта, а не психолога.
Спасибо.

Пользуясь неограниченными правами модератора и создателя этого сообщества, сообщаю.

Если вы сломали голову, что подарить своей подруге на Новый год - подарите сертификат на  портретную фотосессию у Павла Майорова.
А если вас пригласили на детский день рождения, то сертификат на фотосъемку ребенка будет самым лучшим подарком, память о котором останется на всю жизнь в семейном альбоме. Самое главное отличие Павла от остальных фотографов (кстати, я  не знаю, кто во Владимире  специализируется именно на детской фотосъемке) - у него каждая следующая фотосессия не похожа на предыдущую.

Но вообще Павел специализируется на съемке лавстори, свадеб, беременных женщин и, конечно же, детей. И не только в студии, а и в домашних условиях. Настоящий семейный фотограф. Живая фотография, минимум фотошопа, максимум чувств, эмоций и любви. ЖЖ pavelmayorov

Избранные работы на сайте http://pavelmayorov.ru/

Здравствуйте!

Вот такая проблема. Есть некий сетевой сервис, который должен работать долго, анализируя данные. Использую Sniffer::HTTP, который кормлю eth-пакетами, и он разбирает TCP-поток и request-ы и response-ы. Но проблема в том, что где-то в модуле, похоже, есть утечка памяти - когда сессия удаляется, то ли ее буферы не очищаются, то ли еще референсы на данные сесси хранятся где-то внутри модуля.

С наскоку определить где это там не получилось, а времени разобраться в чужом коде нет. Попытался использовать Devel::Size и Deve::Size::Fast, чтобы понять, какие стуктуры растут, но он или валит в кору приложение, или оно перестает работать в pcap-части, то есть не снифает ничего :)

По совету автора модуля попытался использовать Devel::Cycle, и не могу понять его вывод - на что нужно обращать внимание? Он показывает кросс-референсы, получается, любое наличие кросс-референсов на сущности, которые не лежат внутри уничтожаемого объекта это проблема, и нужно разрывать их перед удалением объекта? Их там просто n  показывает, n>5 :)

Или посоветуйте, пожалуйста, другие библиотеки для TCP session reconstruction. С Net::libNIDS что-то тоже не так, или у меня руки кривые, но не осилил. Самому писать не предлагать, я так понимаю, это достаточно нетривиальная задача, как показывает опыт snort и wireshark. Можно, конечно, взять сторонние инструменты и анализировать уже готовые файлы, но это будет не так красиво, как хотелось бы.

Нид хелп, такая задача:
Есть строка, к примеру "1 2 3" (кол-во элементов 2..N, предположительно не больше 4-5)
через permute получаем все варианты порядка, нужно еще все варианты склейки,
например, для примера:
12 3
1 23
123

сделать чтоб работало - не проблема, а чтоб быстро все варианты делало - идей нету

Есть ли возможность вставлять в template-файл глобальные переменные ( например из $ENV ) ?

( moar )

package Iterator;
# this allows "value: $i" syntax // kind of blackjack
use overload
	q("") => sub { $_[0]->{value} },
	q(0+) => sub { $_[0]->{value} },
	fallback => 1;

sub new {
	my ($class, $iter) = @_;
	local *IT;
	my $self = {
		iter	=> $iter,
		value	=> undef,
		empty	=> 0,
	};
# this allows <$i> syntax
	tie *IT, $class, $self;
	my $bless = bless($self, $class);
# this allows $$i->kick() syntax // blackjack!
	*IT = \$bless;						
# this allows $i->() syntax // more blackjack!
	*IT = sub { $self->kick };		
	return *IT;						
}

sub TIEHANDLE {
	my ($class, $iter) = @_;
	bless($iter, $class);	
}

sub value		{ shift->{value} }
sub empty		{ shift->{empty} }
sub READLINE	{ shift->kick }

sub kick {
	my ($self) = @_;
# even more blackjack and hookers!
	local $_ = $self;
	$self->{value} = $self->{iter}->();
}

1;

( moar... )