纯Perl RPM版本检查器
我有一台机器位于无法访问互联网的安全环境中。 我有CentOS的一个基本负载与一些额外的RPMs。 这包括PERL的基本安装,没有额外的模块。 它也没有安装GCC,所以我不能手动安装新模块,也不能使用CPAN来安装它们。 因此,我需要一个纯粹的Perl解决scheme。 我被要求创build一个Perl脚本来validation机器是否安装了特定的RPM列表,并且它们是特定的版本或更新版本。 以下是我到目前为止: #!/usr/bin/perl use strict; use warnings; # This is the list of RPMs to look for on the machine. my @RPMs = ("bwm-ng", "celt051", "device-mapper-multipath", "device-mapper-multipath-libs", "dhcp", "dhcp-common", "ebtables", "freeglut", "glusterfs-api", "glusterfs-libs", "gnutls-utils", "gpm", "hmaccalc", "iftop", "iperf", "ipsec-tools", "iptraf", "iscsi-initiator-utils", "libsysfs", "lm_sensors", "lm_sensors-libs", "log4cpp", "lrzsz", "lzop", "mcsctrans", "minicom", "nc", […]