在 [ ] 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 =~ /\[(.+?)\]/;