有时候为了测试网络情况,需要返回每个阶段的耗时时间,比如DNS解析耗时,建立连接所消耗的时间,从建立连接到准备传输所使用的时间,从建立连接到传输开始所使用的时间,整个过程耗时,下载的数据量,下载速度,上传数
有时候为了测试网络情况,需要返回每个阶段的耗时时间,比如DNS解析耗时,建立连接所消耗的时间,从建立连接到准备传输所使用的时间,从建立连接到传输开始所使用的时间,整个过程耗时,下载的数据量,下载速度,上传数据量,上传速度等等。下面的脚本获取以上信息:
CURL的资料参见: Http://curl.haxx.se/libcurl/c/curl_easy_getinfo.html
###################################
### 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 urln";
print "For example: $0 www.ttlsa.comn";
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: $errn";
}
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);
}
# 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
curl -o /dev/null -s -w %{http_code}:%{http_connect}:%{content_type}:%{time_namelookup}:%{time_redirect}:%{time_pretransfer}:%{time_connect}:%{time_starttransfer}:%{time_total}:%{speed_download} digdeeply.org
--结束END--
本文标题: 获取站点的各类响应时间(dns解析时间,响应时间,传输时间)
本文链接: https://www.lsjlt.com/news/17852.html(转载时请注明来源链接)
有问题或投稿请发送至: 邮箱/279061341@qq.com QQ/279061341
下载Word文档到电脑,方便收藏和打印~
2024-05-13
2024-05-13
2024-05-11
2024-05-11
2024-05-10
2024-05-07
2024-04-30
2024-04-30
2024-04-30
2024-04-29
回答
回答
回答
回答
回答
回答
回答
回答
回答
回答
0