Linux shell：将Perl代码改为linux shell，逐行grep

Question

下面的代码是 Perl 脚本，来自 hostlog 的带有 'Stage' 的 grep 行。然后逐行匹配正则表达式的内容，如果找到将计数加1：

$command = 'grep \'Stage \' '. $hostlog;
@stage_info = qx($command);
foreach (@stage_info) {
    if ( /Stage\s(\d+)\s(.*)/ ) {
        $stage_number = $stage_number+1;
    }
}

那么如何在 linux shell 中做到这一点？根据我的测试，我们不能逐行循环，因为里面有空间。

Answer 1

那是一段可怕的 Perl 代码。原因如下：

1. 您似乎没有使用use strict; use warnings;。这是一个巨大的错误，不会阻止错误，只会隐藏错误。
2. 使用qx() grep 文件中的行是完全多余的事情，因为这是Perl 本身最擅长的。 “淘汰”这样的过程通常会减慢您的程序速度。
3. 使用一些空格使您的代码可读。这很难阅读，而且看起来比实际复杂。
4. 您在正则表达式中使用括号来捕获字符串，但您从不使用这些字符串。
5. 回复：$stage_number=$stage_number+1，见第 3 点。此外，这可以写成$stage_number++。使用++ 运算符将使您的代码更清晰，防止出现未初始化的警告，并节省您的打字时间。

你的代码应该是这样的：

use strict;
use warnings;

open my $fh, "<", $hostlog or die "Cannot open $hostlog for reading: $!";
while (<$fh>) {
    if (/Stage\s\d+/) {
        $stage_number++;
    }
}

Answer 2

您没有对内部捕获做任何事情，那何必呢？您可以使用grep 完成所有操作：

$ stage_number=$(grep -E 'Stage\s\d+\s' | wc -l)

这是使用扩展的正则表达式。我相信 GNU 版本在没有 -E 参数的情况下接受这些，而在 Solaris 中，即使是 egrep 命令也可能不太允许这个正则表达式。

如果你还有其他事情要做，你必须在你的问题中解释它。

Answer 3

如果我正确理解了这个问题，你应该可以在 shell 中做到这一点：

while read; do
    if echo ${REPLY} | grep -q -P "'Stage' "; then
        # Do what you need to do
    fi
done < test.log

请注意，如果您的 grep 命令支持 -P 选项，则您可以按原样使用 Perl 正则表达式进行第二次测试。

Answer 4

差不多了。 bash 没有多个数字的表达式。

#!/bin/bash 

command=( grep 'Stage ' "$hostlog" )

while read line 
do
  [ "$line" != "${line/Stage [0-9]/}" ] && (( ++stage_number ))
done < <( "${command[@]}" )

另一方面，考虑到 perl 脚本的功能而不是它执行的操作，整个事情可以重写为

(( stage_number += ` grep -c 'Stage \d\+\s' "$hostlog" ` ))

或者这个

stage_number=` grep -c 'Stage \d\+\s' "$hostlog" `

如果在原始 perl 中，stage_number 未初始化，或者初始化为 0。