java获取http响应时间_http/https监控获取响应时间（DNS解析时间，RRT时间，服务器处理时间等）...

有时候为了测试网络情况，需要返回每个阶段的耗时时间，比如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 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 = $cur