从[] perl之间的文件中分割文本

Question

我正在从日志文件中读取并查找其中存在特定错误的行，之后我能够将该行输出到文件中。但我不想将整行输出到文件，只是输出错误的日期。日志文件的格式如下： “[5/13/14 0：00：31：444 EDT]其他一些文字”。我希望能够将日期写入另一个文件。分手时我很难做到这一点。这就是我所拥有的：

if (/WSVR0605W/)
{
    my @vals =~ split(/\[/, $string);
    $vals[0] =~ s/\\//g;
    print ERRORFILE "$vals[0]\n";
}

由于

Answer 1

您可能希望拆分]，然后删除[。

    my @vals = split(/\]/, $string);
    $vals[0] =~ s/\[//;

这对正则表达式来说可能更好，

my ($date) = $string =~ /\[(.+?)\]/;