在Perl中创建正则表达式以提取值

Question

我在Ubuntu 12.04机器上从Perl脚本中的变量中提取某些值时遇到麻烦。

我查看了以下页面： 如何按照模式提取字符串

这就是我想要做的。 我需要在特定模式后提取字符串值。 到目前为止，这是我的代码：

foreach $HDD (@sds)
{
    $hdStat = `hdparm -i $HDD | grep -Po 'Model=\K.*?(?=,)'`;
    $sdModel{$HDD} = $hdStat;
    $hdStat = `hdparm -i $HDD | grep -Po 'SerialNo=\K.*?(?=")'`;
    $sdSerial{$HDD} = $hdStat;
}
foreach $HDD (keys %sdModel)
{
    print $sdModel{$HDD};
}
foreach $HDD (keys, %sdSerial)
{
    print $sdSerial{$HDD};
}

它会返回Model字符串，但不会返回SerialNo字符串。 该代码不必与grep一起使用； 我刚刚从上面的链接修改了代码。 看到我对正则表达式的恐惧 ，我可能在这里缺少一些基本知识。

顺便说一句，此代码的目的是浏览/ dev文件夹以查找任何磁盘驱动器，如果确实如此，则将其设置为一个数组，上面的脚本将在其中获取其Model＃和Serial＃。 另外，如果有人发现做我正在做的事情的更好的方法，我很乐意提出建议。 我对Perl还是很陌生（到目前为止只有一个星期左右）。

Answer 1

首先，您不打印$ sdSerial。

其次，您可以保存一些外部调用并使用以下命令简化正则表达式：

foreach my $HDD (@sds) {
    my @hdparm = `hdparm -i $HDD`;
    foreach my $ln (@hdparm) {
        if (my($model, $serial) = ($ln =~ m/Model=(.+?),.+?,\s*SerialNo=(.+)/)) {
            $sdModel{$HDD} = $model;
            $sdSerial{$HDD} = $serial;
        }
    }
}

---

上面可以简化为：

foreach my $HDD (@sds) {
    my $hdparm = `hdparm -i $HDD`;
    if (my($model, $serial) = ($hdparm =~ m/Model=(.+?),.+?,\s*SerialNo=(.+)/)) {
        $sdModel{$HDD} = $model;
        $sdSerial{$HDD} = $serial;
    }
}

Answer 2

为了提取序列号，请尝试以下正则表达式：

$hdStat = `hdparm -i $HDD | grep -Po 'SerialNo=\K.*?'`;