VPF::Как подсчитать потребление памяти скриптом?

Fulldozer

Дата 1.4.2011, 06:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 8.8.2009

Репутация: нет
Всего: нет

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

Код


my @list = (
    { id => 1, level => 0, parent_id => 0 },
    { id => 2, level => 1, parent_id => 1 },
    { id => 3, level => 1, parent_id => 1 },
    { id => 4, level => 1, parent_id => 1 },
    { id => 5, level => 1, parent_id => 1 },
    { id => 6, level => 1, parent_id => 1 },

);
my @ordered;

sub get_tree {
 my ($tree,$parent_id) = @_;
 foreach my $row ( @$tree ) {
    if ( $row->{parent_id} == $parent_id ) {
        push @ordered, $row;
        get_tree($tree,$row->{id})
    }
 }
}

get_tree(\@list,1);

Насколько я понимаю, если размер списка 64Кб ( к примеру ), то при глубине рекурсии = 10 во время выполнения get_tree будет занято минимум 640Кб.

Пробовал я Devel::NYTProf, но он память не отслеживает.
Пробовал сделать по статье http://perl.active-venture.com/pod/perldeb...perlmemory.html, но видимо недопонял авторов.

Короче пока писал этот пост, нашел модуль Memory::Usage
http://cpan.uwinnipeg.ca/htdocs/Memory-Usa...e.html#SYNOPSIS

Тему можно считать закрытой, а пост пусть остается.

Это сообщение отредактировал(а) Fulldozer - 1.4.2011, 06:49

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »