Perl：等待 xdg-open 退出后再继续

Question

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

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

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

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

Answer 1

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

因此，除了通过一些不可移植的技巧之外，没有简单的方法可以知道查看器的 PID 以等待其退出。

解决方案可能是使用该模块File::Temp（包含在 perl 发行版中）并使用 UNLINK / CLEANUP 标志创建临时文件/目录，当保存对象的变量超出范围时，该文件/目录将被删除（从而调用 DESTROY 方法） 。这样，只要脚本运行（并且变量没有超出范围），就可以在文件系统中访问临时文件。