5

$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文件之前删除临时目录。我怎样才能让脚本等待实际的观众完成呢？

4

1 回答 1

4

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

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

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

于 2018-02-14T23:40:35.500 回答