在没有TK的Perl中显示非阻塞窗口/弹出/对话框/通知

Question

我希望执行一个Perl脚本（没有Tk），它应该显示非阻塞通知（通过窗口/对话框/弹出/通知等）。目前，我尝试过使用：

• 对话框
• 使用Win32 :: GUI通知。

在这两种情况下，窗口都会被阻止以供用户输入。 此外，如果有任何选项使用Windows＆＃39;系统命令，请同时提及。

perl脚本是在Windows上执行的独立脚本。

Answer 1

使用阻止通知，但在fork之后从子进程运行。

sub dialog {
    my $msg = shift;
    if (fork() == 0) {
        my_Win32_GUI_function_to_display_dialog($msg);
        exit;
    }
}