linux - Perl:在继续之前等待 xdg-open 退出

Question

我有一个 Perl 脚本，它在临时目录 $tempdir 中生成一个 pdf $pdffile 并使用 xdg-open 打开它。一旦用户查看完文件，脚本就会删除工作目录。这是我遇到问题的代码部分:

system "xdg-open $pdffile";
remove_tree($tempdir);

我对system的理解是，它应该等到命令返回后再继续执行程序。但是，当我执行这段代码时，我收到一条消息“无法打开/tmp/diff14969/diffs.pdf”。如果我在 system 命令中将 xdg-open 替换为 okular(这是我的系统默认设置)，它会按我想要的方式工作。 (同样，如果我对系统上的任何 pdf 查看器进行硬编码，它会起作用，但出于可移植性的原因，我不想这样做。)

我的猜测是 xdg-open 正在一个新进程中启动查看器，system 命令只等待 xdg-open完成。 xdg-open 成功返回后，脚本会在查看者打开文件之前删除临时目录。如何让脚本等待实际查看者完成？

Answer 1

xdg-open 根据您使用的桌面环境使用不同的方式打开文件。它实际上并没有“启动查看器”，而是要求(至少在 Gnome 中)桌面环境打开您的文件(例如，在 Gnome 中使用 gio，而后者又使用 dbus)。

因此，没有简单的方法可以知道查看器的 PID 以等待它退出，除非使用一些不可移植的技巧。

一个解决方案可能是使用模块 File::Temp(包含在 perl 发行版中)并使用 UNLINK/CLEANUP 标志创建临时文件/目录，当变量持有对象超出范围(因此调用 DESTROY 方法)。这样，只要您的脚本运行(并且变量没有超出范围)，就可以在文件系统中访问临时文件。