alibench交互 獲取測試鏈接全國打開情況

#!/usr/bin/perl
#use strict;
#use warnings;
use LWP::UserAgent;
use HTTP::Cookies;
use Encode;
use JSON;
use utf8;

binmode(STDIN, ':encoding(utf8)');
binmode(STDOUT, ':encoding(utf8)');
binmode(STDERR, ':encoding(utf8)');

my $new_task_url = 'http://www.alibench.com/new_task.php';  #創建探測人物的URL
my $get_task_re_url = 'http://www.alibench.com/query_task.php'; # 獲取探測結果URL

sub save_cookie {     ####保存COOKIE 並獲取form name(下邊創建任務post時會用到)
	my $UA = LWP::UserAgent->new;
	my $cookie_jar = HTTP::Cookies->new(
        file => "./ali_cookies.dat",
        autosave => 1,
		ignore_discard => 1,
    );
	$UA->cookie_jar($cookie_jar);   ##保存COOKIE
    my $response = $UA->get('http://www.alibench.com/');
	my ($traceroute_from,$traceroute_from_name);
	my $str = $response->content;
    foreach my $line (split(/input/,$str)){
		if ($line =~ m!.*name="traceroute_from" value="([^"]*)" id.*!) {
			$traceroute_from = $1;   #獲取form
		}
		if ($line =~ m!.*name="traceroute_from_name" value="([^"]*)" id.*!) {
			$traceroute_from_name = $1;  #獲取form name
		}		
	}
	return ($traceroute_from,$traceroute_from_name);
}

sub create_task {
    my ($traceroute_from,$traceroute_from_name) = @_;
    my $UA = LWP::UserAgent->new;
	$UA->agent('Mozilla/5.0 (Windows NT 6.1; WOW64; rv:35.0) Gecko/20100101 Firefox/35.0');
	$UA->cookie_jar({'file' => './ali_cookies.dat'});
	$UA->default_header(   #定義headers
						'Host' => 'www.alibench.com',
						'User-Agent' => 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:35.0) Gecko/20100101 Firefox/35.0',
						'Accept' => 'application/json, text/javascript, */*; q=0.01',
						'Accept-Language' => 'zh-cn,zh;q=0.8,en-us;q=0.5,en;q=0.3',
						'Accept-Encoding' => 'gzip, deflate',
						'Content-Type' => 'application/x-www-form-urlencoded; charset=UTF-8',
						'X-Requested-With' => 'XMLHttpRequest',
						'Referer' => 'http://www.alibench.com/',
						'Connection' => 'keep-alive',
						'Pragma' => 'no-cache',
						'Cache-Contro' => 'no-cache',
	);
    my $response = $UA->post("$new_task_url",['task_from' => 'self',     ##post數據
										'traceroute_from' => "$traceroute_from",
										'traceroute_from_name' => "$traceroute_from_name",
										'target' => 'www.test.com',   ##定義需要探測的URL
										'target2' => '',      
										'is_pk' => 'false',  ##對比開關
										'ac' => 'http',      ##測試類型爲http
										'http_assign_time' => '20',  ##任務下發時間
										'isps[]' => '1',  ##需要探測的服務商
										'isps[]' => '4',
										'http_method' => 'get',
										'http_gzip' => 'true',
										'http_follow_302' => 'true',
										'http_cookie' => '',
										'http_ua' => '',
										'http_host' => '',
										'http_referer' => '',
										'http_limit_rate' => '', 
										]);
    return $response->content;  ##包含任務id 以及創建任務的返回碼 ，0爲成功
}

sub get_task_re {         ##獲取探測結果
    my ($task_id) = @_;
    my $UA = LWP::UserAgent->new;
	$UA->agent('Mozilla/5.0 (Windows NT 6.1; WOW64; rv:35.0) Gecko/20100101 Firefox/35.0');
	$UA->cookie_jar({'file' => './ali_cookies.dat'});
	$UA->default_header(
						'Host' => 'www.alibench.com',
						'User-Agent' => 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:35.0) Gecko/20100101 Firefox/35.0',
						'Accept' => 'application/json, text/javascript, */*; q=0.01',
						'Accept-Language' => 'zh-cn,zh;q=0.8,en-us;q=0.5,en;q=0.3',
						'Accept-Encoding' => 'gzip, deflate',
						'Content-Type' => 'application/x-www-form-urlencoded; charset=UTF-8',
						'X-Requested-With' => 'XMLHttpRequest',
						'Referer' => "http://www.alibench.com/rp/$task_id",
						'Connection' => 'keep-alive',
						'Pragma' => 'no-cache',
						'Cache-Contro' => 'no-cache',
	);
    my $response = $UA->post("$get_task_re_url",[
											'task_ids' => "$task_id", 
											'task_type'=> '1',
										]);
    return $response->content;
}

sub handle_json {   ###json處理
	my $json_data = $_[0];
	my $json_obj;
	my $json = JSON->new->utf8;
	$json_obj = $json->decode("$json_data");
	
	my ($data_array,$tmp,$complete_status);
	my @data_item = qw!http_total_time http_dns_time curl_connect_time http_download_speed client_ip node_name!;
	###定義需要獲取的數據類型，以下是可以得到的信息，在數組data_item添加即可
#	                {
#                    "node_id": "10658334",
#                    "locate_id": 34147844,
#                    "task_type": "1",
#                    "target_ip": "123.134.186.225",
#                    "http_response_code": "200",
#                    "http_total_time": 296000,
#                    "http_dns_time": 15000,
#                    "curl_connect_time": 62000,
#                    "curl_pretransfer_time": 62000,
#                    "curl_starttransfer_time": 140000,
#                    "http_download_size": "36590",
#                    "http_download_speed": "123614",
#                    "http_response_head": "HTTP/1.1 200 OK\r\nContent-Type: text/html\r\nLast-Modified: Wed, 04 Feb 2015 08:55:16 GMT\r\nVary: Accept-Encoding\r\nExpires: Wed, 04 Feb 2015 09:08:23 GMT\r\nCache-Control: max-age=300\r\nContent-Encoding: gzip\r\nContent-Length: 36590\r\nAccept-Ranges: bytes\r\nDate: Wed, 04 Feb 2015 09:05:33 \r\nServer: wxcdn/1.1.1\r\n\r\n",
#                    "ldns_ip": "58.242.96.242",
#                    "http_download_time": 234000,
#                    "http_connect_time": 47000,
#                    "status": 2,
#                    "client_ip": "58.243.174.211",
#                    "node_name": "安徽 阜陽 聯通",
#                    "node_country": "中國",
#                    "node_province": "安徽",
#                    "node_city": "阜陽",
#                    "isp": "聯通",
#                    "target_location": "山東省萊蕪市聯通"
#                }

	for my $item (@{$json_obj->{'data'}}){
		$data_array = $item->{'data'};
		$complete_status = $item->{'complete'};   #true:1   false:0
	}

	foreach my $one_zone_info (@{$data_array}) {
		if (defined($one_zone_info->{'http_total_time'})) {
			foreach my $da_it (@data_item) {
				$tmp .=  $one_zone_info->{"$da_it"} . "_";
			}
			push (@result,$tmp);   #將探測完成的數據push到數組
			$tmp = '';
		}else{
			print "$one_zone_info->{'node_name'}   this zone is not ok \n"; 
			next;
		}
	}
	return($complete_status,@result);
}


my ($traceroute_from,$traceroute_from_name) = save_cookie;
my $task_info = create_task($traceroute_from,$traceroute_from_name);

my $task_id;
if ($task_info =~ m!\{"code":0,"env":"online","data":"\\/rp\\/(.*)"\}!) {
	$task_id = $1;
}else{
	print "Create task failed \n $task_info";
	exit;
}

sleep 20;
print "get \n";
my ($complete_status,@result);
($complete_status,@result) = handle_json(get_task_re($task_id));

while ($complete_status == 0) {
	sleep 2;
	print "get result,waiting \n";
	($complete_status,@result) = handle_json(get_task_re($task_id));
}

foreach  (@result) {
	print "$_ \n";  ##輸出全部的數據
}

  下圖是獲取的部分結果。  注意下執行頻率，過快的話 可能會導致測試的域名被拉黑名單。