ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Victor Wagner                        2:5020/400     22 May 2002  23:30:57
 To : "Alexander M. Bulat"
 Subject : Re: Time
 -------------------------------------------------------------------------------- 
 

  Alexander M. Bulat <webmaster@soft.zp.ua> wrote:
  
  
 AMB> Доброе время суток, уважаемый All! 
  
 AMB> Hе подскажете ли, как узнать время, за которое сервер
 AMB> обрабатывает, скрипт и формирует страницу? Заранее сенкс. 
 
 ...
 use Time::HiRes qw(gettimeofday tv_interval);
 my $t0=[gettimeofday];
 my $q=new CGI;
 ....
 здесь скрипт обрабатывает запрос и формирует страницу
 print $q->end_html;
 print "Запрос обрабатывался ",tv_interval($t0,[gettimeofday])," секунд";
 
 Это, конечно, маленький грязный хак, основанный на том, что
 распространенные браузеры показывают то, что выведено на странице
 после </html>,  но работает.
 
 Еще одно но - оно не учитывает времени на компиляцию скрипта.
 Можно, конечно, попытаться определение $t0 в BEGIN всунуть
 но за результаты не очень ручаюсь.
 
 Впрочем, в случае mod_perl затраты на компиляцию неинтересны.
 AMB> --- С наилучшими пожеланиями, *** Alexander M. Bulat ***
 AMB> www.SOFT.zp.ua         mailto:webmaster(a)soft.zp.ua 
  
  
 -- 
 Infernal error: чёрт сломал ногу, пытаясь разобраться в вашем коде
 --- ifmail v.2.15dev5
  * Origin: Free Net of Leninsky,45 (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Time   Alexander M. Bulat   22 May 2002 22:56:17   Re: Time   Victor Wagner   22 May 2002 23:30:57   Re: Time   Andrey Sapozhnikov   23 May 2002 14:17:37   Re: Time   Nikolay Pichtin   23 May 2002 22:52:37   Re: Time   Artem Chuprina   24 May 2002 20:33:21   Hа: Time   Alexander V. Gaiduk   23 May 2002 13:39:46