如何使用Perl快速检查是否安装了Linux`unzip`？

Question

如何快速检查是否unzip使用Perl安装Linux ？

Answer 1

跑吧.

认真.

据推测,其原因为何,你想知道是否已安装,是因为你以后需要运行它.在这种情况下,还不足以知道它是否已安装 - 无论如何 - 您还需要知道它是否可执行,是否在路径中,脚本运行的用户ID是否具有运行所需的权限它,等等.您只需运行即可查看所有内容.

Answer 2

`which unzip`

如果有输出,则指向解压缩的位置.如果没有输出,则不会显示任何内容.这依赖于解压缩你的道路.

Answer 3

这将验证unzip命令是否在您的路径上,以及它是否可由当前用户执行.

print "unzip installed" if grep { -x "$_/unzip"}split /:/,$ENV{PATH}