Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
24.03.2003, 11:11
|
|||
|---|---|---|---|
|
|||
Время выполнения запроса к MySQL 3 сек.(!) |
|||
|
#18+
Есть скрипт, который выдает сумму скачанного трафика ориентируясь по IP посетителя. Так вот если выполнять запрос даже лишь по одной дате, время выполнения составляет 3,минимум 2, секунды! Это нормально или я что-то криво сделал. #!/usr/bin/perl use DBI; use CGI qw(:all); ########################################################### ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time); $hour="0".$hour if length($hour)==1; $min="0".$min if length($min)==1; $sec="0".$sec if length($sec)==1; $first_time = $hour.$min.$sec; ########################################################### my $dbh = DBI->connect("DBI:mysql:database=name;host=xxx.xxx.xxx.xxx","user", "pass") || die $DBI::errstr; ########################################################### my $ip=$ENV{'REMOTE_ADDR'};#определение ip адреса $date1=param('date1');#присвоение переменной первой даты из формы $date2=param('date2');#присвоение переменной второй даты из формы ########################################################### my $ID=$dbh->prepare("SELECT * FROM filter_ip WHERE IP_address='$ip'"); $ID->execute; my $viv=$ID->fetchrow_hashref(); my $id=$viv->{"Filter_ID"}; ########################################################### my $IB=$dbh->prepare("SELECT * FROM traffic WHERE ts BETWEEN '$date1' AND '$date2' AND filterid='$id'"); $IB->execute; my $iv=$IB->fetchrow_hashref(); my $summa=$iv->{"recv"}; ########################################################### $shotsumma=($summa/1024)/1024; $shotsumma=sprintf "%.3f",$shotsumma; ########################################################### ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time); $hour="0".$hour if length($hour)==1; $min="0".$min if length($min)==1; $sec="0".$sec if length($sec)==1; $second_time = $hour.$min.$sec; $end_time = $second_time - $first_time; ########################################################### print "<html><head><title>Результат подсчета</title></head><body>"; print "<table align=center border=1>"; print "<tr><td><font size=4>За период с <b>$date1</b> по <b>$date2</b> скачано <b>$shotsumma</b> Мб (=$summa байт) </font></tr></td>"; print "<tr align=center><td><font size=4>Ваш IP адрес <b>$ip</b></font></td></tr>"; print "<tr align=center><td>Время выполнения запроса $end_time секунд</td></tr>"; print "</table>"; print "<table align=center border=0>"; print "<tr><td>"; print "<FORM ACTION='/cgi-bin/forma_traffic.pl' align=center>"; print "<INPUT TYPE=submit VALUE='Назад'>"; print "</tr></td>"; print "</table>"; print "</body></html>"; ########################################################### $dbh-> disconnect(); ########################################################### Ось на которой стоит MySQL NT4. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=23&tablet=1&tid=1480654]: |
0ms |
get settings: |
11ms |
get forum list: |
15ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
165ms |
get topic data: |
12ms |
get forum data: |
3ms |
get page messages: |
26ms |
get tp. blocked users: |
2ms |
| others: | 249ms |
| total: | 491ms |
| 0 / 0 |
