1

嗨，刚刚学习 Perl，请原谅。我想要做的是，如果日志文件包含这些字符串中的一个或多个失败、错误或跳过，然后打印出错误。（日志可能包含一个或多个字符串中的所有字符串或只有一个实例）我尝试了以下代码的变体。它编译但它只打印出完成。 

#!perl=C:\IBM\RationalSDLC\ClearCase\bin\perl

my @matches = (
  qr/"Failed"/,
  qr/"Skipped"/,
  qr/"Error"/,
 );

$mylog = "email_log.txt";

open (LOG, "<$mylog") || die 'Could not OPEN $mylog file';

LOG_READER:
while (my $loglines = <$LOG>) {
  if ($loglines =~ /@matches/) { 
   print "Error in the log\n";
   last LOG_READER;
  }
}
close($LOG);

print "\n Test is Done \n";

我也试过

while ( $_ = <INPUT> ) {

  if( $_ =~ @matches ){
    print "\n Build Failed! \n";
  }
}

感谢您的帮助 修改后的代码有效 此解决方案使用数组 #!perl=C:\IBM\RationalSDLC\ClearCase\bin\perl

my @matches = qr/Failed | Skipped | Error/x;

my $mylog = "email_log.txt";

open (LOG, "<$mylog") || die 'Could not OPEN $mylog file';

LOG_READER:
while (my $loglines = <LOG>) {
  if ($loglines =~ /$matches/) { 
   print "Error in the log\n";
   last LOG_READER;
  }
}
close(LOG);

print "\n Test is Done \n";

这个解决方案是我使用的
#!perl=C:\IBM\RationalSDLC\ClearCase\bin\perl 使用警告；使用严格；

my $myfailures = qr/Failed | Skipped | Error/x;
my $mylog = "email_log.txt";

open (LOG, "<$mylog") || die 'Could not OPEN $mylog file';

LOG_READER:
while (my $loglines = <LOG>) {
  if ($loglines =~ /$myfailures/) {
   print "Error in the log\n";
   last LOG_READER;
#    last;
  }
}

close(LOG);

print "\n Test is Done \n";

另一种解决方案 #!perl=C:\IBM\RationalSDLC\ClearCase\bin\perl 使用警告；使用严格；

my $mylog = "email_log.txt";

open (INPUT, "<$mylog") || die 'Could not OPEN $mylog file';

LOG_READER:
while(<INPUT>) {
    next unless /(Failed|Skipped|Error)/;
    print "\n Build failed \n";
    last;
}

close(INPUT);

print "\n Test is Done \n";

解决方案#4 

#!perl=C:\IBM\RationalSDLC\ClearCase\bin\perl
use warnings;
use strict;

my $matches = "Failed|Skipped|Error";
my $mylog = "email_log.txt"; 

open my $LOG, "<", $mylog|| die 'Could not OPEN $mylog file';

while (my $loglines = <$LOG>) {
    if ($loglines =~ /$matches/) { 
        print "\n Error in the log\n";
        last;
    }
}
close($LOG);

print "\n Test is Done \n";

谢谢大家的贡献。他们都工作真的希望我能给每个人正确的答案。通过提供的解决方案，我能够使所有变体正常工作。

4

4 回答 4

4

if ($loglines =~ /@matches/) {

这是你的问题。您不能使用数组作为匹配的正则表达式。试试这个：

  if ($loglines =~ /"(Failed|Skipped|Error)"/) {

while (my $loglines = <$LOG>) { ... close($LOG);

哦，这应该只是LOG没有美元符号。

有了use strict; use warnings;你，你会得到一些更好的诊断。养成习惯。

于 2013-05-20T21:34:29.870 回答
2

你让这太复杂了。你真的只需要阅读一下正则表达式的工作原理，但这是一个非常简单的问题要解决：

while(<INPUT>) {
    next unless /"(Failed|Skipped|Error)"/;
    print "\n Build failed \n";
    last;
}
于 2013-05-20T21:33:25.127 回答
1

首先。我会一直使用use warnings; use strict;.

我还将修改您的open调用以使用 3-arg 词法范围版本。 

open my $fh, "<", $mylog;

你到底想在这里匹配什么？

my @matches = (
  qr/"Failed"/,
  qr/"Skipped"/,
  qr/"Error"/,
 );

您的日志文件中的示例会有所帮助。您正在尝试匹配包含在实际引号中的这些关键字。这是你想要的吗？

email_log.txt 示例：

Your build "Failed"
"Skipping" foo.c

这将匹配或不匹配周围的引号：

my $matches = "Failed|Skipped|Error";
my $mylog = "email_log.txt";
open my $fh, "<", $mylog; 

while (my $loglines = <$fh>) {
    if ($loglines =~ /$matches/) { 
        print "Error in the log\n";
        last;
    }
}
close($fh);
于 2013-05-20T22:24:18.863 回答
1

您可以使用正则表达式数组，但对于这种特殊情况，不需要它，

my $matches = qr/"Failed" | "Skipped" | "Error"/x;

接着

if ($loglines =~ /$matches/) { .. }
于 2013-05-20T21:34:15.377 回答