Re: [apache-rus] translit slowdown

[Victor B Wagner <vitus@ice.ru>]

On Thu, 1 Oct 1998, Alexander N Shipitsyn wrote:

> Kirill Romanov wrote:
> > Я это понимаю, но все равно мне кажется что у меня что то не в порядке.
> > Если не сложно - проверьте скорость перекодировки
> > http://water-isle.yp.ru/trn/test/test.htm
> 
> IMHO, даже если задержка есть, то разницу между 0,001 и 0,01 сек трудно
> уловить через сеть. Нужны более точные (операционно-системные) методы.

Вот один для примера (Tcl 8.0):

#! /usr/local/bin/tclsh
package require http
if {!$argc} {
  puts stderr "Supply url and, optionally, count of tries"
  exit 1
}
set url [lindex $argv 0]
if {$argc>1} {
  set count [lindex $argv 1]
} else {
  set count 10
}
puts [time {unset [http::geturl $url]} $count]

У меня получилось следующее:

 % time {unset [http::geturl {http://www/~vitus/fiction/gerhard006.txt}]} 10
196871 microseconds per iteration

 % time {unset [::http::geturl\
http://koi-www/~vitus/fiction/gerhard006.txt]} 10
186864 microseconds per iteration
 % time {unset [::http::geturl\
http://lat-www/~vitus/fiction/gerhard006.txt]} 10
200162 microseconds per iteration

  Apache/1.3.1 Ben-SSL/1.24 (Unix) mod_perl/1.15 rus/PL26.3

Тестовый файл - чисто руский текст размером
2634 байта.


--------------------------------------------------
Victor Wagner			vitus@ice.ru
Programmer			Office:7-(095)-333-2022
Institute for Commerce 		Home: 7-(095)-135-46-61
Engineering                     http://www.ice.ru/~vitus