从文件中读取并将内容与变量进行比较

Question

#!/usr/bin/perl
some code........
..................
system ("rpm -q iptables > /tmp/checkIptables");
my $iptables = open FH, "/tmp/checkIptables";

上面的代码检查您的 Linux 机器上是否安装了 iptables？如果已安装，命令rpm -q iptables 将给出如下所示的输出：

iptables-1.4.7-3.el6.x86_64  

现在我已将此输出重定向到名为checkIptables 的文件。

现在我想检查变量 $iptables 是否与上面给出的输出匹配。我不关心版本号。

它应该类似于

if ($iptables eq iptables*){
...............
.......................}

But iptables* 给出错误。

Answer 1

您可以使用正则表达式来检查字符串：

$iptables =~ /^iptables/

此外，您不需要 tmp 文件，您可以打开一个管道：

use strict;
use warnings;
use autodie;

open my $fh, '-|', "rpm -q iptables";
my $line = <$fh>;
if ($line =~ /^iptables/) {
    print "iptables is installed";
}

这将读取输出的第一行，并根据正则表达式进行检查。

或者您可以使用反引号：

my $lines = `rpm -q iptables`;
if ($lines =~ /^iptables/) {
    print "iptables is installed";
}

请注意，反引号可能会返回多行数据，因此您可能需要对此进行补偿。

Answer 2

我认为您正在寻找的是正则表达式或“模式匹配”。您希望字符串匹配一个模式，而不是特定的事物。

if ( $iptables =~ /^iptables\b/ ) { 
   ...
}

=~ 是绑定 运算符，它告诉提供的正则表达式其源是该变量。正则表达式只是表示在字符串的开头查找序列“iptables”，后跟“word-break”。由于“-”是“非单词”字符（不是字母数字或“_”），因此它会破坏单词。您也可以使用“-”：

/^iptables-/

但是您可能可以使用此语句完成整个操作：

use strict;
use warnings;
use List::MoreUtils qw<any>;

...
if ( any { m/^iptables-/ } `rpm -q iptables` ) {
    ...
}

通过反引号将输出直接传递到列表中，并通过any搜索该列表（请参阅List::MoreUtils::any

Answer 3

为什么不直接看“rpm -q”的返回值，无论安装与否，它都会分别返回0或1？