Просмотр сообщений
1
Perl / Проблемы загрузки процессора на выделенном сервере
« : 17 Ноября 2007, 02:03:20 »
Не знаю куда конкретно писать данный вопрос, но решил что сюда.
Вообщем есть сайт на выделенном сервере.
Сайт написан на perl. Используется БД Mysql.
Когда на сайте 5-10 человек сайт летает.
Планировалось чтобы сайт выдерживал нагрузку 500-1000 человек (обновлений страниц, хитов) в рамках минуты.
Но делая простейший перл скрипт:
#!/usr/bin/perl
use DBI;
my $mod_date = gmtime;
print "Last-Modified: ", $mod_date, " GMT"; # always modified
print "Expires: Fri, Jun 12 1981 08:20:00 GMT\\n";
print "Cache-Control: no-cache, must-revalidate\\n";
print "Pragma: no-cache\\n";
print "Content-type: text/html; Charset=utf-8\\n\\n";
$mysql_user_db = \'\';
$mysql_password_db = \'\';
$mysql_base_name = \'\';
$mysql_host_url = \'\';
my($user_db) = $mysql_user_db;
my($password_db) = $mysql_password_db;
my($base_name) = $mysql_base_name;
my($dsn) = "DBI:mysql:$base_name:$mysql_host_url";
$dbh = DBI->connect($dsn, $user_db, $password_db);
print "Hello, world!";
$dbh->disconnect();
Т.е. просто коннектимся к БД и печатаем строчку. При стресс-тесте в 1 минуту получаем
Number of hits: 967
Requests per Second: 16.12
В момент стресс теста загрузка процессоров 2-х процессорного сервера 50-70% для вышенаписанного кода.
Если же еще в момент теста браузером заходить на сайт то страница грузится 1-3 секунды. Бывает и 10 секунд грузится. Т.е. как-то непонятно.
Если же к текущему коду добавить несколько запросов на получение данных из БД то уже все цифры увеличиваются, загрузка процессора 85-95%. Страницы через браузер грузятся 3-7 секунд. Бывает 10-20.
Нормальны ли указанные цифры или нет? Если этого недостаточно могу дополнительные цифры дать.
Не могу понять в чем проблема.
Вообщем есть сайт на выделенном сервере.
Сайт написан на perl. Используется БД Mysql.
Когда на сайте 5-10 человек сайт летает.
Планировалось чтобы сайт выдерживал нагрузку 500-1000 человек (обновлений страниц, хитов) в рамках минуты.
Но делая простейший перл скрипт:
#!/usr/bin/perl
use DBI;
my $mod_date = gmtime;
print "Last-Modified: ", $mod_date, " GMT"; # always modified
print "Expires: Fri, Jun 12 1981 08:20:00 GMT\\n";
print "Cache-Control: no-cache, must-revalidate\\n";
print "Pragma: no-cache\\n";
print "Content-type: text/html; Charset=utf-8\\n\\n";
$mysql_user_db = \'\';
$mysql_password_db = \'\';
$mysql_base_name = \'\';
$mysql_host_url = \'\';
my($user_db) = $mysql_user_db;
my($password_db) = $mysql_password_db;
my($base_name) = $mysql_base_name;
my($dsn) = "DBI:mysql:$base_name:$mysql_host_url";
$dbh = DBI->connect($dsn, $user_db, $password_db);
print "Hello, world!";
$dbh->disconnect();
Т.е. просто коннектимся к БД и печатаем строчку. При стресс-тесте в 1 минуту получаем
Number of hits: 967
Requests per Second: 16.12
В момент стресс теста загрузка процессоров 2-х процессорного сервера 50-70% для вышенаписанного кода.
Если же еще в момент теста браузером заходить на сайт то страница грузится 1-3 секунды. Бывает и 10 секунд грузится. Т.е. как-то непонятно.
Если же к текущему коду добавить несколько запросов на получение данных из БД то уже все цифры увеличиваются, загрузка процессора 85-95%. Страницы через браузер грузятся 3-7 секунд. Бывает 10-20.
Нормальны ли указанные цифры или нет? Если этого недостаточно могу дополнительные цифры дать.
Не могу понять в чем проблема.
