perl 异步请求和JS对比

perl 异步和js对比；

/js**************

$(function(){

function isPhone(str){
var regex = /[0-9]{11,11}/;
return regex.test(str);
}

var _bt = $(".bt");
_bt.on("click",function(){
var tel = $("[name='tel']").val();
var env = $("[name='env']").val();

if(isPhone(tel)){

var data = {};
data.phone = tel;
data.env = env;

var successfn = function(jdata){
if(jdata[0][2] != undefined){
$(".gridtable").empty();
var _HTML="<tr><th>ENV </th><th>TEL</th><th>Code</th></tr>";
$.each(jdata,function(i,val){
_HTML=_HTML+"<tr><td>"+env+"</td><td>"+tel+"</td><td>"+jdata[i][0]+"\n"+jdata[i][1]+"</td></tr>";
});
$(".gridtable").html(_HTML);
}else{
$(".gridtable").empty();
var _HTML="<tr><th>ENV </th><th>TEL</th><th>Code</th></tr>";
_HTML = _HTML+"<tr><td>"+env+"</td><td>"+tel+"</td><td>"+jdata[0][1]+"</td></tr>";
$(".gridtable").html(_HTML);
}
};
var errorfn = function(jdata){
alert("数据返回出错");
};
$.axg(
"/DEVOPS/index.php/Codequery/getcode",
data, ##data表示请求接口的参数
successfn,
errorfn
);

}else{
alert("输入的手机号码不符合规范");
}
});

});

/perl***********

use AnyEvent::HTTP;
use HTTP::Date qw(time2iso str2time time2iso time2isoz);
my $cv = AnyEvent->condvar;
http_request GET => 'http://120.55.118.6:3000/api/env?ip=192.168.32.101',timeout => 20, sub {
my ($body, $hdr) = @_;
$time2=time2iso(time());
print "\$time2 is $time2\n";
print "$body\n";
};
$time1=time2iso(time());
print "\$time1 is $time1\n";
print "11111111111111111111\n";
$cv->recv();

异步请求的结果  http_request GET => 'http://120.55.118.6:3000/api/env?ip=192.168.32.101'  返回给函数

sub {
my ($body, $hdr) = @_;
$time2=time2iso(time());
print "\$time2 is $time2\n";
print "$body\n";
};

再来看一个奇葩的perl 异步调用:

#!/usr/bin/perl

use AnyEvent;
use AnyEvent::HTTP;

my $cv = AnyEvent->condvar;

sub doit{
my $url = shift ;
return if not defined $url;

$cv->begin;
http_get( "$url", sub { done( $url, @_ ) } );
print "1111111111111111\n";
}

sub done {
my ($url, $content, $hdr) = @_;

$cv->end();
print "Search: $url\tStatus: ", $hdr->{Status}, "\n";
print "\$content is $content\n";
};
&doit('http://120.55.118.6:3000/api/env?ip=192.168.32.101');
print "222222222222222222\n";
$cv->recv();

&doit('http://120.55.118.6:3000/api/env?ip=192.168.32.101');

传递的参数为http://120.55.118.6:3000/api/env?ip=192.168.32.101

http_get( "$url", sub { done( $url, @_ ) } );  异步请求的结果 传递给函数 sub { done( $url, @_ ) }   ，结果传递给函数done