perl - 使用 Perl 检测操作系统类型

Question

我想使用 Perl 来检测操作系统类型。

例如:

假设我有一个安装程序，以便知道安装程序需要运行哪些命令。我必须检测安装了什么操作系统，例如 Linux。假设它是Linux。现在是哪种类型的 Linux？

Fedora

Ubuntu

CentOS

Debian

等

我该怎么做？

Answer 1

第一步是检查 $^O 的输出。多变的。

如果输出是例如

linux

您需要更多处理来检测使用了哪个分布。

见 perldoc perlvar .

到目前为止，您可以运行 lsb_release -a查看使用了哪个分布。

如果此命令不存在，您可以测试以下文件是否存在:

/etc/debian_version # debian or debian based
/etc/redhat-release # rpm like distro

其他文件测试示例: Detecting Underlying Linux Distro

考虑 xaxes' solution也使用 Linux::Distribution模块来检查分布。

如果要检测包管理器，可以尝试这种方法:

 if ($^O eq "linux") {
     my $pm;

     do{
         if (-x qx(type -p $_ | tr -d "\n")) {
             $pm = $_;
             last;
         }
     } for qw/apt-get aptitude yum emerge pacman urpmi zypper/;

     print $pm;
 }