VPF::Объём памяти занимаемый переменной

Secandr

Дата 27.3.2015, 17:39 (ссылка)

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

Загрузка ...

Связист

Профиль
Группа: Экс. модератор
Сообщений: 4043
Регистрация: 3.8.2003
Где: Russia, Volgograd

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

Привет.

А есть более менее простой способ узнать сколько памяти занимает переменная? Хотя бы ориентировочно.

Я для общения потомков с предком использую разделяемую память на стареньком сервере и мне периодически не хватает памяти для обмена данными. Хотелось бы предвидеть такой момент и не передавать кусок данных, если он больше определённого размера.

--------------------

Мышки плакали, кололись, но продолжали жрать кактусы (с) cisco

arto

Дата 27.3.2015, 17:46 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

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

а как переменные передаются?
и какие переменные?

Secandr

Дата 30.3.2015, 14:52 (ссылка)

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

Загрузка ...

Связист

Профиль
Группа: Экс. модератор
Сообщений: 4043
Регистрация: 3.8.2003
Где: Russia, Volgograd

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

Вот как-то так:

Код


use IPC::Shareable;
my %buffer;
my $handle = tie %buffer, 'IPC::Shareable', undef, { destroy => 1 };

В детях делаю так:

Код


              $handle->shlock();
              $buffer{out} .="\nend $id at ".localtime()."\n";
              $buffer{out_reconfig}=Dumper($o{reconfig}) if exists $o{reconfig};
              push @{$buffer{error}}, keys %{$o{error}} if exists $o{error};
              $buffer{out_error}=Dumper($o{error}) if exists $o{error};
              foreach (keys %WARNING) {
                $buffer{'WARNING'}{$_}=1;
              }  
              $handle->shunlock();

В принципе можно оценить количество ключей в $o{error} и если их больше N не запоминать данные, тем более они нужны больше для дебага.

Это сообщение отредактировал(а) Secandr - 30.3.2015, 14:53

--------------------

Мышки плакали, кололись, но продолжали жрать кактусы (с) cisco

arto

Дата 31.3.2015, 08:32 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

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

да, у вас размер хеша определяется в основном размером ключей и значений.

noize

Дата 31.3.2015, 12:02 (ссылка)

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

Загрузка ...

5.18.2

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

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

попробуйте Devel::Peek, не уверен, что это именно то, что нужно, но можно протестить

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