输出表中数据的匹配

Question

我们需要逐个元素匹配某些数据，该元素是在命令提示符下获得的表格形式的输出。以下是当前遵循的方法，其中 $Var 包含输出。是否有一种最佳方法可以在不将命令输出定向到文件的情况下执行此操作。

请分享您的想法。

$Var = "iSCSI Storage     LHN StgMgmt Name  IP              Name
==============================================================
0                 Storage_1         15.178.209.194  admin
1                 acct-mgmt         15.178.209.194  storage1
2                 acct-mgmt2        15.178.209.194  storage2";

@tab = split("\n",$Var);
foreach (@tab) {
    next if ($_ !~ /^\d/);
    $_ =~ s/\s+//g;
    $first=0 if($_ =~ /Storage/i && /15.178.209.194/);
    push(@Array, $_); }

Answer 1

$_ =~ /Storage/i && /15.178.209.194/ 很愚蠢。像这样分解： ($_ =~ /Storage/i) && （/15.178.209.194/）。要么一致使用 $_，要么不使用 - // 和 s/// 运算符自动对 $_.

您还应该知道，在正则表达式 /15.178.209.194/ 中，. 被解释为任何字符。要么转义它们，要么使用 index() 函数。

此外，我建议您使用 split() 分隔每一行。这使您可以比较每个单独的列。您可以将 split() 与正则表达式一起使用，如下所示：@array = split(/\s+/, $string);。

最后，我不太确定 $first 的用途，但我注意到该输入中的所有三个示例行都​​会触发 $first=0 因为它们都包含该 IP和字符串“存储”。

Answer 2

如果我理解正确的话，你想像这样调用你的脚本：

./some_shell_command | perl perl_script.pl

你想要使用的是 Perl 钻石运算符 <>：

#!/usr/bin/perl

use strict;
use warnings;

my $first;
my @Array;

for (<>) {
    next unless /^\d/;
    s/\s+/ /g;
    $first = 0 if /Storage/i && /15.178.209.194/;
    push(@Array, $_);
}

我已经删除了 $_< 的冗余使用/code> 并修复了您的替换，因为您可能不想删除所有空格。