问题描述
我已根据https://metacpan.org/pod/AnyEvent::WebSocket::Client#SYNOPSIS创建了以下WebSocket客户端连接:
use Data::Dumper;
use AnyEvent;
use AnyEvent::WebSocket::Client;
my $client = AnyEvent::WebSocket::Client->new;
$client->connect("wss://example:8080")->cb(sub {
my $connection = eval { shift->recv };
if($@) {
warn $@;
return;
}
$connection->send("My message");
$connection->on(each_message => sub {
my($connection,$message) = @_;
print "Recieved Message: $message\n"
});
$connection->on(finish => sub {
my($connection) = @_;
print "disconnected...\n";
});
$connection->close;
});
AnyEvent->condvar->recv;
它给了我“握手错误:错误的响应行”,这是我的$ connection = eval {shift-> recv};
我尝试根据"handshake error: Wrong response line" when connecting to websocket解决问题,但是它一直给我一个问题。
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)