perl - 如何在perl中等待异步文件

Question

我正在尝试测试一个异步写入文件的日志记录模块...单元测试尝试读取日志以确保写入的消息符合预期。但是，我发现模块的异步写入直到单元测试完成后才到达文件，即使我睡着等待文件任意长度的时间也是如此。我通过在 aio_close 旁边添加打印语句来验证文件直到最后才关闭。我该怎么做才能对此进行测试？

        #approximately the way this works:
        aio_open($pathname,
             $flags,
             $mode,
             sub
             {
                 my $fh = shift;
                 aio_write($fh,
                             0,
                             length($log),
                             $log,
                             0,
                             sub
                             {
                                 print "here";
                                 aio_close($fh, sub {});
                             });
             });

Answer 1

好吧，仔细研究了一下，我发现我可以调用...

IO::AIO::flush;

这会导致所有异步缓冲区在执行我的测试之前刷新。