Perl：在继续之前等待 xdg-open 退出
Perl: wait for xdg-open to quit before continuing
我有一个 Perl 脚本，它在临时目录 $tempdir 中生成一个 pdf $pdffile 并使用 xdg-open 打开它。一旦用户查看完文件，脚本就会删除工作目录。这是我遇到问题的代码部分：
system "xdg-open $pdffile";
remove_tree($tempdir);
我对system的理解是应该等到命令returns才继续执行程序。但是，当我执行这段代码时，我收到一条消息 "Could not open /tmp/diff14969/diffs.pdf"。如果我在 system 命令中将 xdg-open 替换为 okular（这是我的系统默认设置），它会按我想要的方式工作。 （类似地，如果我对系统上的任何 pdf 查看器进行硬编码，它会起作用，但出于可移植性的原因，我不想这样做。）
我的猜测是 xdg-open 正在新进程中启动查看器，而 system 命令只等待 xdg-open 完成。一旦 xdg-open returns 成功，脚本会在查看者打开文件之前删除临时目录。我怎样才能让脚本等待实际查看者完成？
xdg-open 根据您使用的桌面环境使用不同的方式打开文件。它实际上并不 "start the viewer" 而是要求（至少在 Gnome 中）桌面环境打开你的文件（例如在 Gnome 中使用 gio 而反过来使用 dbus）。
因此，没有简单的方法可以知道查看器的 PID 以等待它退出，除非使用一些不可移植的技巧。
一个解决方案可能是使用模块 File::Temp（包含在 perl 发行版中）并使用 UNLINK / CLEANUP 标志创建临时文件/目录，当保存对象的变量消失时，它会被删除超出范围（因此调用 DESTROY 方法）。这样，只要您的脚本运行（并且变量不超出范围），就可以在文件系统中访问临时文件。
我有一个 Perl 脚本，它在临时目录 $tempdir 中生成一个 pdf $pdffile 并使用 xdg-open 打开它。一旦用户查看完文件，脚本就会删除工作目录。这是我遇到问题的代码部分：
system "xdg-open $pdffile";
remove_tree($tempdir);
我对system的理解是应该等到命令returns才继续执行程序。但是，当我执行这段代码时，我收到一条消息 "Could not open /tmp/diff14969/diffs.pdf"。如果我在 system 命令中将 xdg-open 替换为 okular（这是我的系统默认设置），它会按我想要的方式工作。 （类似地，如果我对系统上的任何 pdf 查看器进行硬编码，它会起作用，但出于可移植性的原因，我不想这样做。）
我的猜测是 xdg-open 正在新进程中启动查看器，而 system 命令只等待 xdg-open 完成。一旦 xdg-open returns 成功，脚本会在查看者打开文件之前删除临时目录。我怎样才能让脚本等待实际查看者完成？
xdg-open 根据您使用的桌面环境使用不同的方式打开文件。它实际上并不 "start the viewer" 而是要求（至少在 Gnome 中）桌面环境打开你的文件（例如在 Gnome 中使用 gio 而反过来使用 dbus）。
因此，没有简单的方法可以知道查看器的 PID 以等待它退出，除非使用一些不可移植的技巧。
一个解决方案可能是使用模块 File::Temp（包含在 perl 发行版中）并使用 UNLINK / CLEANUP 标志创建临时文件/目录，当保存对象的变量消失时，它会被删除超出范围（因此调用 DESTROY 方法）。这样，只要您的脚本运行（并且变量不超出范围），就可以在文件系统中访问临时文件。