我想在应用程序加载/初始化时显示进度条。
此代码不起作用，但应该让您了解什么 我正在努力完成。
my Bool $done-compiling = False;
BEGIN {
start repeat {
print \'*\';
sleep 0.33;
} until $done-compiling;
};
INIT {
$done-compiling = True;
};
是否触发了我可以在 BEGIN 块中响应的事件？
标签： progress-bar splash-screen raku
Liz 根据您编写的代码提供了一个解决方案，修复了您原始代码中的错误。
这是一个更简单的版本：
BEGIN start repeat { print '*'; sleep 0.33 } until INIT True
（您可能会认为 INIT True 是一些特殊功能，但它只是从返回值的移相器的工作方式中自然而然地消失了。）
【讨论】：
我认为代码没问题。如果你模拟加载，你会看到一个 * 的进度条：
my Bool $done-compiling;
BEGIN {
start repeat {
print '*';
sleep 0.33;
} until $done-compiling;
}
BEGIN sleep 3; # simulate compilation / loading
INIT $done-compiling = True;
在INIT 块中设置标志就足够了！我想您可以考虑执行 INIT 块作为您正在寻找的事件？
【讨论】：
*s 的打印很可能不会及时出现；您可能希望将其添加为 BEGIN 块的第一行： BEGIN { $*OUT.out-buffer = False;如果需要，您可以在完成 BEGIN/INIT 时间工作后重新启用缓冲。
prompt "?? "; say "Done."; 我得到以下输出：（我在提示符处输入了hello world）：**********?? *****h*e*ll*o*****wo*r*ld******** Done. 程序开始执行后进度条继续运行。
INIT 会将标志设置为True，然后开始常规执行。这是在第 1 行，标志被重置为False。删除= False（就像我刚刚在示例中所做的那样）它应该可以按您的意愿工作。 :-)
你已经得到了两个有效的答案。但是它们都依赖于跨不同线程使用变量，这总是让我有点紧张。鉴于我们在这里需要多个线程，我可能会求助于 Raku 有用的并发原语之一。这是对使用Promise 的已接受答案的一个非常小的更改：
my Promise $done-compiling;
BEGIN {
$done-compiling .= new;
start repeat {
print '*';
sleep 0.33;
} until $done-compiling ~~ Kept;
}
BEGIN sleep 3; # simulate compilation / loading
INIT $done-compiling.keep;
【讨论】：
INIT 移相器不会——不能——产生一个（非Nil）值，直到封闭的compunit 的运行阶段开始（并且假设代码将在 main/MAIN compunit 中）。我什至做了各种测试，试图反驳我的想法，但无济于事。但是我没有检查编译器的代码。大概你做到了，或者你知道一些我不知道的事情。无论如何，如果您在我的答案下方而不是在这里的评论中进行解释，那么对于以后的读者来说将是最好的。 （然后我会删除这条评论。）
INIT 应该做什么吗？我假设它是一个移相器，它会在程序中的所有编译单元完成编译阶段之后在运行阶段（也就是运行程序）尽快触发。或者 Rakudo 或我的大脑是否有错误？我提到我已经测试了我的解决方案以澄清我已经检查了后者。我尽我所能相信它会奏效，而且现在仍然如此。它会是疯狂的如果没有。但是当我如此自信时，我的本能反应是尝试反驳我的想法，以防 Rakudo 或我的大脑出现问题。你不确定什么？