Модераторы: ginnie, korob2001
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> PERL скрипт который будет измерять расход памяти, PERL скрипт расход памяти 
:(
    Опции темы
comhunt
Дата 19.8.2009, 13:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Вопрос, который будет описан произрастает из другой темы: 
http://forum.vingrad.ru/forum/topic-269890...ем-сервера.html
http://forum.vingrad.ru/forum/topic-269858...а-free-bsd.html

>можно наваять простенький скриптец, который будет измерять сколько памяти кушается только процессами apache/nginx.

>это даст вам более ясную картину.


А где можно посмотреть пример такого скрипта (PERL)? И как внутри перл-сценария измерить сколько памяти кушается процессами?
PM MAIL   Вверх
KSURi
Дата 19.8.2009, 14:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 5
Всего: 27
Проще посмотреть через top/htop.
Если надо именно внутри скрипта, то можно, например, воспользоваться libgtop и биндингом GTop.


--------------------
Died at Life.pl line 21
PM Jabber   Вверх
ginnie
Дата 19.8.2009, 14:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 6
Всего: 49
comhunt, можно это реализовать путем обработки вывода системной ps.


--------------------
Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)
PM MAIL Skype Jabber   Вверх
amg
Дата 19.8.2009, 14:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 9
Всего: 50
Простейший пример, apache/linux:
Код
use List::Util 'sum';
$mem = sum(map {(split)[4]} grep {/\bhttpd\b/} `top -b -n1`) || 0;
printf "%.1f Mb\n", $mem/1024;
PM MAIL   Вверх
Loki
Дата 23.8.2009, 12:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
там есть несколько примеров
http://www.geocities.com/arndike/perl-sys-performance.html
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl: Системное программирование"
korob2001
sharq
  • В этом разделе обсуждаются вопросы относящиеся только к системному программированию на Perl
  • Если ваш вопрос не относится к системному или CGI программированию, задавайте его в общем разделе
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1079 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.