|
|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Serguei Trouchelle 2:550/4077.1 19 Nov 2002 12:13:06 To : Andrey Kudrin Subject : вывод http-заголовка -------------------------------------------------------------------------------- > Совет: пеpестать топтать гpабли, у них от этого pучка cломается скоpо, и > сделать все-таки use CGI qw/:standard/; AK> И постоянно подгружать больше 100к кода ради такой мелочи, как AK> вывести заголовок? Benchmark::cmpthese (1000000, { 'Non-CGI' => sub { print "Content-type: text/plain;\n\n"; }, 'CGI' => sub { use CGI; print header; }, }); Benchmark: timing 1000000 iterations of CGI, Non-CGI... CGI: 0 wallclock secs ( 0.35 usr + 0.00 sys = 0.35 CPU) @ 2849002.85/s (n=1000000) (warning: too few iterations for a reliable count) Non-CGI: 5 wallclock secs ( 0.90 usr + 0.42 sys = 1.32 CPU) @ 756429.65/s (n=1000000) Rate Non-CGI CGI Non-CGI 756430/s -- -73% CGI 2849003/s 277% -- Думаю, даже не смешно. Serguei Trouchelle --- timEd/386 1.10.y2k+ * Origin: Раю нема на небi, всьому кiнець могила (2:550/4077.1) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/3332dda614e3.html, оценка из 5, голосов 10
|