在[]perl之间拆分文件中的文本

我从一个日志文件中读取数据，并找到其中有某个错误的行，然后我可以将该行输出到一个文件中。但我不想将整行输出到文件中，只想输出错误发生的日期。日志文件的格式如下所示： “[5/13/14 0:00:31:444 EDT]其他文本”。我希望能够将日期写入另一个文件。我在使用split进行此操作时遇到问题。以下是我所拥有的：

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

---

谢谢

您可能希望在

]

上拆分，然后删除

[

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

对于regex来说，哪一项工作可能更好

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