Perl 中的 grep 问题

Question

以下来自 Perl 脚本..

$search2=  join(' ', $mo,$day,$hr); # Output "Aug 2 03"
$LOG1  = "/tmp/log"  # Log file path. It has $search2 inside it
$search1 = "issue|error"

这是我遇到问题的地方...

$failed = `"/bin/egrep" "$search1" "$LOG1"| grep "$search2"`;

没有grep "search2" 低于输出

Aug  1 01:03:40 something sudo: pam_unix(sudo:auth): authentication failure; logname=something uid=0 euid=0 tty=/dev/pts/1 ruser= something=  user=something
Aug  1 03:34:20 something  sudo: pam_unix(sudo:auth): authentication failure; logname=something uid=0 euid=0 tty=/dev/pts/0 ruser= something=  user=something
Aug  2 00:43:29 something sudo: pam_unix(sudo:auth): authentication failure; logname=something uid=0 euid=0 tty=/dev/pts/1 ruser= something=  user=something
Aug  2 03:02:33 someting  sudo: pam_unix(sudo:auth): authentication failure; logname=something uid=0 euid=0 tty=/dev/pts/1 ruser= something=  user=something

但是当使用| grep "$search2" 时没有得到任何东西

   print "$failed"; # It is not throwing any output of 'Aug 2 03'

但是，当我在 Linux 命令行上执行相同的操作时，我得到了所需的输出。下面我在linux命令行上使用

/bin/egrep "issue|error" "/tmp/log" | grep  "Aug 2 03"

请帮忙解决。

Answer 1

我认为你应该听从达达在评论中给出的建议。如果您发布的内容真的是您所看到的，那么这是行不通的：

你像这样构建你的字符串：

$search2=  join(' ', $mo,$day,$hr);

这意味着您在月和日之间有一个空格。此外，您复制了未使用搜索字符串而获得的输出，如下所示：

Aug  1 01:03:40 something sudo: pam_unix(sudo:auth): authentication failure; logname=something uid=0 euid=0 tty=/dev/pts/1 ruser= something=  user=something

这显然不是 8 月到 1 日之间的一个空格。

我很确定，如果您使用十六进制编辑器查看文件 /tmp/log，您将不会在“Aug”和“1”之间看到一个空格。

您还可以从命令行调用命令并将其通过管道传送到 xxd，以查看十六进制内容。

Answer 2

您无需为此调用 grep：

use autodie;
open my $fh, "<", $LOG1;
my $failed = "";
while (<$fh>) {
    $failed .= $_ if /$search1/o && /$search2/o;
}
close $fh;