如何与Perl中的svnlook相匹配？

Question

我在Windows服务器上运行SVN，我使用Perl脚本来实现一些预提交挂钩。我看到了来自TortoiseSVN的以下错误消息：

错误!!ScriptError！无法解析行：_U路径/to/file/主干

这就是剧本：

foreach my $line (`$svnlook changed -t "$txn" "$repos"`)
{
  chomp($line);
  if ($line !~ /([AUD]).\s\s(.+)$/)
  {
    print STDERR "Error Can't parse line: $line\n";
    exit(1);
  }
  else
  {
     # perform some actions 
  }
}

exit(0);

我试着用像/_([AUD]).\s\s(.+)$/这样的没有成功的东西来代替正则表达式--我甚至尝试了/.*([AUD]).\s\s(.+)$/。

有什么想法？有什么建议吗？

Answer 1

没有查看SVN文档，我只是猜测:在上面的输出中，U和实际路径之间只显示了一个空格，但是在所有正则表达式中都有\s\s。

编辑好了，现在我看了一下svnlook reference。首先，regex对svnlook当前版本失败，因为输出指定如下：

• 前两列包含状态
• 路径从第五列开始。
• 状态可以是A(添加)、U(内容更改)、D(删除)、_U (属性更改)和UU (内容+属性更改)之一。

因此，您应该能够与类似于^([_AUD]+)\s+(.+)$的东西匹配。一个人可以说得更具体，但这是不必要的。

如果不匹配，请将命令的输出输送到文件中，并在此发布相关部分。

Answer 2

if ($line !~ /^_?([AUD])\s+(.+)$/应该工作得很好。