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

Question

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

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

我对@9​​87654325@的理解是应该等到命令返回后再继续程序。但是，当我执行此代码时，我收到一条消息“无法打开 /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 方法）。这样，只要您的脚本运行（并且变量不会超出范围），就可以在文件系统中访问临时文件。