如何用 Perl 检测 Linux 的发行版本

Question

提问:我需要写一个 Perl 程序，它会包含 Linux 发行版相关的代码。为此，Perl 程序需要能够自动检测运行中的 Linux 的发行版（如 Ubuntu、CentOS、Debian、Fedora 等等），以及它是什么版本号。如何用 Perl 检测 Linux 的发行版本？

如果要用 Perl 脚本检测 Linux 的发行版，你可以使用一个名为 Linux::Distribution 的 Perl 模块。该模块通过检查/etc/lsb-release 以及其他在/etc 下的发行版特定的目录来猜测底层 Linux 操作系统。它支持检测所有主要的 Linux 发行版，包括 Fedora、CentOS、Arch Linux、Debian、Ubuntu、SUSE、Red Hat、Gentoo、Slackware、Knoppix 和 Mandrake。

要在 Perl 中使用这个模块，你首先需要安装它。

在 Debian 或者 Ubuntu 上安装 Linux::Distribution

基于 Debian 的系统直接用 apt-get 安装

$ sudo apt-get install liblinux-distribution-packages-perl 

在 Fedora、CentOS 或者 RHEL 上安装 Linux::Distribution

如果你的 Linux 没有 Linux::Distribution 模块的安装包（如基于红帽的系统），你可以使用 CPAN 来构建。

首先确保你的 Linux 系统安装了 CPAN

$ sudo yum -y install perl-CPAN 

然后，使用这条命令来构建并安装模块：

$ sudo perl -MCPAN -e 'install Linux::Distribution' 

用 Perl 确定 Linux 发行版

Linux::Distribution 模块安装完成之后，你可以使用下面的代码片段来确定你运行的 Linux 发行版本。

use Linux::Distribution qw(distribution_name distribution_version);

my $linux = Linux::Distribution->new;

if ($linux) {
  my $distro = $linux->distribution_name();
  my $version = $linux->distribution_version();
  print "Distro: $distro $version\n";
}
else {
  print "Distro: unknown\n";
}