Time::HiResによるcgiの高精度応答時間測定 - end0tknr's kipple - web写経開発
apacheのCustomLogでは「%T」による応答時間を秒単位で表示することができますが、更に細かい単位で表示したい場合、Time::HiRes を使用します。 次のサンプルは、sleep(1秒)を含めていますが、Time::HiRes の time() でマイクロ秒程度で時間を測定できることが分かると思います。 #!/usr/local/bin/perl use strict; use warnings; use Time::HiRes qw ( time alarm sleep ); warn time(),"\n"; sleep(1); warn time(),"\n"; bash-3.2$ ./foo.pl 1220658852.78125 1220658853.78127 bash-3.2$
Q4M人柱その２ - D-6 [相変わらず根無し]
Q4M人柱その２ rev40のq4mを使ってベンチマーク。といっても単純にSELECTとINSERTのベンチのみ。 use strict; use warnings; use DBI; use Time::HiRes qw(time); my $TEST_ROWS = $ENV{TEST_ROWS} || 1024; my $dbh = DBI->connect( $ENV{DBI} || 'dbi:mysql:database=test;host=localhost', $ENV{DBI_USER} || 'root', $ENV{DBI_PASSWORD} || '', ) or die 'connection failed:'; $dbh->do('drop table if exists q4m_t'); $dbh->do('create table q4m_t (v int n
Time::HiRes
NAME Time::HiRes - High resolution alarm, sleep, gettimeofday, interval timers SYNOPSIS use Time::HiRes qw( usleep ualarm gettimeofday tv_interval nanosleep clock_gettime clock_getres clock_nanosleep clock stat lstat utime); usleep ($microseconds); nanosleep ($nanoseconds); ualarm ($microseconds); ualarm ($microseconds, $interval_microseconds); $t0 = [gettimeofday]; ($seconds, $microseconds) = get
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
