- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
使用“cro sub”创建了一个 websocket 服务器。
写了这个客户:
use v6;
use Cro::WebSocket::Client;
constant WS-PORT = '20000';
constant WS-ADDRESS = 'localhost';
constant WS-PATH = 'chat';
constant WS-URL = 'ws://' ~ WS-ADDRESS ~ ':' ~ WS-PORT ~ '/' ~ WS-PATH;
constant TIMEOUT-TO-CONNECT = 5; # seconds
my $timeout;
my $connection-attempt;
await Promise.anyof(
$connection-attempt = Cro::WebSocket::Client.connect(WS-URL),
$timeout = Promise.in(TIMEOUT-TO-CONNECT));
if $timeout.status == Kept
{
say "* could not connect to server in ', TIMEOUT-TO-CONNECT, ' seconds";
exit 1;
}
if $connection-attempt.status != Kept
{
say "* error ", $connection-attempt.cause,
" when trying to connect to server";
exit 1;
}
my $connection = $connection-attempt.result;
my $peer = WS-ADDRESS ~ ':' ~ WS-PORT;
say '* connected with ', $peer;
my $counter = 0;
my $message-supplier = Supplier::Preserving.new;
my $has-message-to-send = $message-supplier.Supply;
$message-supplier.emit(1);
react
{
whenever $has-message-to-send
{
$counter++;
$connection.send($counter);
say "* ok, sent message ", $counter, " to server";
}
whenever $connection.messages -> $reply
{
say '* received reply=[' ~ $reply ~ '] from server';
$message-supplier.emit(1);
}
} # react
$connection.send($counter)
$connection.send($counter.Str)
最佳答案
让我们一 block 一 block 地解决这个问题。
首先,您的代码对我来说看起来是正确的,除了一些微小的位。
当我复制你的代码时,它确实不起作用,所以我用 cro trace .
尝试了它而不是 cro run .
.您可以在 official docs 中找到有关该模式的信息。 .
另一种方法是设置 CRO_TRACE=1
环境变量。
所以在调试过程中我看到了这个错误:
正如它所说,您发送的正文无法序列化。所以我查看了您发送的内容:
[TRACE(anon 1)] Cro::HTTP::ResponseParser QUIT No applicable body serializer could be found for this message$counter
. $counter
在您的代码中是 Int
, 所以我们需要使它 Str
之前,做简单的$counter.Str
使您的示例起作用。
另外,请注意,您在每次回复时都会发送一条消息,并且回显服务器(您使用 cro stub
创建的默认服务器)也会为每条传入消息发送回复,因此您的示例会无休止地发送消息。为了防止这种情况发生,您可以考虑添加一个条件,在该条件下您将不再发送东西,但是,无论如何,它是一个测试示例,这取决于您。
至于你的其他问题:
Another question, shoudn't "$connection.send" return a Promise or something?
Cro::Transform
- 包装用品。
Cro::Websocket::Client::Connection
内部,
send
方法只是将一个东西直接发送到
Cro::Source
在整个管道中,简单的
$supplier.emit($message)
不会出错(这个方法的真正实现看起来非常接近这条线)。你碰到的事情发生在管道中。我确信隐藏这种情况的异常并不是一个很好的用户体验,所以我会考虑制作一个补丁来传播异常,这样会更容易捕获(尽管你总是可以使用 Debug模式)。
it seems the server only understands IPV6 addresses...how to make it understand IPV4 addresses ?
关于raku - Cro::WebSocket::Client 不起作用,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/51405074/
虽然总是可以使用 mixin 或方法覆盖来修改 Bool 强制转换,但默认情况下哪些值被认为是真值,哪些值被认为是假值? 注意:这个问题是 asked previously ,但不幸的是它太旧了,它的
也许我遗漏了一些东西,但我想知道这段代码是否有充分的理由 编译 role L { method do-l (Int, Int --> Int ) { ... } } class A does L
FAQ:在 Raku 中如何检查列表是否为空? 是否有比以下更惯用的方法: my @l = (); say @l.elems == 0; say @l == (); say @l.Bool; doc
FAQ:在 Raku 中,如何从列表中删除重复项以仅获取唯一值? my $arr = [1, 2, 3, 2, 3, 1, 1, 0]; # desired output [1, 2, 3, 0] 最
我使用 Raku 进行一些计算,因为它有很好的数字类型。但是,我在使用“.raku”时遇到问题 say (1/6+1/6).raku # 我们得到这个。然而, say (1/10+1/10).raku
常见问题解答:在 Raku 中,如何将字符串转换为十六进制的字节列表(即十六进制解码器) 目前,我有: say "I ❤ 🦋".encode.list.map(*.base(16)); # (49
在 1990 年代和 2000 年代,编程语言爱好者几乎没有讨论过分隔延续的话题。它最近重新成为编程语言讨论中的一个主要问题。 我希望有人至少可以权威地说出 Rakudo 背后的延续(与 Raku 相
我选择在 Perl 6 中重新设计我之前代码的一部分,在这种情况下是一个棋盘。前两个类运行良好(或者至少工作正常,我知道的很少,我无法确定它们的正确性) ,但我坚持第三。这是代码: #!/home/h
如何重现数组的每个元素 x 次? 例如 for my @a=;和 x=5 ,结果应该是这样的 (blu blu blu blu blu red red red red red) 我想出了这个 say
我正在尝试使用一个变量并在一个步骤中为其分配一个表达式: 给定的(示例)代码 my @l=; my $i=0; while $i ; my $i=0; say @l[$i =~ ($i+1) * 2]
我想连续打印偶数,但我不能。 use Terminal::ANSIColor; # Wanna print even numbers in red for { $_ %2 == 0 ?? say c
目前(截至 2020 年 8 月)Rakudo 不在编译时对函数的返回值进行类型检查;也就是说,它不提供函数满足其返回约束的静态保证。具体来说,以下两个函数都编译为 Raku: sub get-int
自从我上次更新我在 Raku 生态系统中的一个模块以来已经有一段时间了。我需要更新中央注册表文件/存储库还是会自动检测到更新? 最佳答案 修改版本号后,我等了一个小时左右,然后 zef可以安装模块 -
有人能告诉我如何在正在执行的 Raku 脚本中找到脚本的路径吗? 我正在 Raku 中寻找与此 Perl 代码等效的代码: $path=abs_path($0); 最佳答案 使用 $*PROGRAM见
Raku的正则表达式有两种交替形式:|和||。有什么区别 ? say 'foobar' ~~ / foo || foobar / # 「foo」 say 'foobar' ~~ / foo | fo
我故意避免使用术语 defined因为一个变量很可能有一个定义的值,但 .defined方法将返回 false(例如,失败)。 有什么方法可以确定变量是否已为其设置了值? my $foo; say $
我从/path/to/data 运行/home/foo/bar.p6 并显示“Segmentation fault (core dumped)” 我在/var/crash 或我的主目录或当前工作目录中
在 cli 上,在 linux 中,cp -p保留文件上修改/访问的时间戳。是否可以直接在 Raku 中执行相同操作? Rosetta 示例使用 Nativecall,它可以通过系统调用来完成,但看起
我想重用 token parameter来自 Perl6::Grammar在我的自定义俚语中添加“自定义参数”参数不带 cargo 培养 . 我的意思是说: my $main-grammar = $*
关闭。这个问题需要更多focused .它目前不接受答案。 想改善这个问题吗?更新问题,使其仅关注一个问题 editing this post . 去年关闭。 Improve this questio
我是一名优秀的程序员,十分优秀!