- A+
所属分类：Perl
获取站点的各类响应时间
有时候为了测试网络情况，需要返回每个阶段的耗时时间，比如DNS解析耗时，建立连接所消耗的时间，从建立连接到准备传输所使用的时间，从建立连接到传输开始所使用的时间，整个过程耗时，下载的数据量，下载速度，上传数据量，上传速度等等。下面的脚本获取以上信息：
CURL的资料参见： http://curl.haxx.se/libcurl/c/curl_easy_getinfo.html
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 |
################################### ### author: www.ttlsa.com ### ### QQ群: 39514058 ### ### E-mail: service@ttlsa.com ### ################################### use strict; use Data::Dumper; use WWW::Curl::Easy; if(!@ARGV){ print "Usaging: $0 url\n"; print "For example: $0 www.ttlsa.com\n"; exit; } my $curl = new WWW::Curl::Easy; open my $response_body,">/dev/null"; $curl->setopt(CURLOPT_HEADER,1); $curl->setopt(CURLOPT_URL, $ARGV[0]); $curl->setopt(CURLOPT_WRITEDATA,\$response_body); $curl->perform; my $err = $curl->errbuf; if(!$err){ my $st = &getTime; my $http_code = $curl->getinfo(CURLINFO_RESPONSE_CODE); my $http_dns_time = $curl->getinfo(CURLINFO_NAMELOOKUP_TIME); my $http_conn_time = $curl->getinfo(CURLINFO_CONNECT_TIME); #my $http_APP_time = $curl->getinfo(CURLINFO_APPCONNECT_TIME); my $http_PRE_TRAN_time = $curl->getinfo(CURLINFO_PRETRANSFER_TIME); my $http_START_TRAN_time = $curl->getinfo(CURLINFO_STARTTRANSFER_TIME); my $http_TOTAL_time = $curl->getinfo(CURLINFO_TOTAL_TIME); my $http_SIZE_DOWN = $curl->getinfo(CURLINFO_SIZE_DOWNLOAD); my $http_SPEED_DOWN = $curl->getinfo(CURLINFO_SPEED_DOWNLOAD); printf "local_time: %s, http_code: %d, dns_time: %.3fms, conn_time: %.3fms, pre_tran_time: %.3fms, start_tran_time: %.3fms, total_time: %.3fms, size_download: %dB, speed_download: %dB/s",($st,$http_code,$http_dns_time,$http_conn_time,$http_PRE_TRAN_time,$http_START_TRAN_time,$http_TOTAL_time,$http_SIZE_DOWN,$http_SPEED_DOWN); write; format STDOUT_TOP= 站点各类响应时间明细-@|| $% ========================= +---------------------+------+-------------+--------------+--------------------------+------------------------+-------------+-----------+------------+ | 本地时间 | 状态 | DNS解析时间 | 建立连接时间 | 从建立连接到准备传输时间 |从建立连接到开始传输时间| 整个过程时间| 下载数据量|平均下载速度| +---------------------+------+-------------+--------------+--------------------------+------------------------+-------------+-----------+------------+ . format STDOUT= |@<<<<<<<<<<<<<<<<<<<<| @<<<<| @<<<<<<<<<<<| @<<<<<<<<<<<<| @<<<<<<<<<<<<<<<<<<<<<<<<| @<<<<<<<<<<<<<<<<<<<<<<| @<<<<<<<<<<<| @<<<<<<<<<| @<<<<<<<<<<| $st,$http_code,$http_dns_time."ms",$http_conn_time."ms",$http_PRE_TRAN_time."ms",$http_START_TRAN_time."ms",$http_TOTAL_time."ms",$http_SIZE_DOWN."B",$http_SPEED_DOWN."B/s" +---------------------+------+-------------+--------------+--------------------------+------------------------+--------------+----------+------------+ . }else{ print "Error: $err\n"; } sub getTime() { my @time=(localtime)[5,4,3,2,1,0]; $time[0]+=1900; $time[1]+=1; return sprintf("%04u-%02u-%02u %02u:%02u:%02u",@time); } |
shell命令下也有相同的命令如下所示：
|
1 |
# curl -o /dev/null -s -w %{http_code}:%{http_connect}:%{time_namelookup}:%{time_connect}:%{time_pretransfer}:%{time_starttransfer}:%{time_total}:%{size_download}:%{speed_download} www.ttlsa.com |
不解释了，具体参见 man curl
如需转载请注明出处：http://www.ttlsa.com/html/1465.html
微信公众号
扫一扫关注运维生存时间公众号，获取最新技术文章~
05/09/2013 下午 10:18 沙发
恩。 有时候还是要用到的
29/01/2013 下午 9:28 板凳
现在基本都是jiankongmf 和17ce 测试了 很少自己这样操作