如何在Perl中匹配svnlook输出？

Question

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

错误!!脚本错误!! 无法解析行：_U path / to / files / trunk

这是脚本：

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

exit(0);

我尝试用/_([AUD]).\\s\\s(.+)$/替换正则表达式， /_([AUD]).\\s\\s(.+)$/没有成功-我什至尝试了/.*([AUD]).\\s\\s(.+)$/ 。

思考？ 建议？

Answer 1

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

[编辑]好的，现在我来看看svnlook参考 。 首先，对于当前版本的svnlook，您的正则表达式将失败，因为输出指定如下：

• 前两列包含状态
• 路径从第五列开始
• 状态可以是A（添加），U（内容已更改），D（已删除），_ U（属性已更改）和UU（内容+属性已更改）之一

因此，您应该可以与^([_AUD]+)\\s+(.+)$类的东西匹配。 可以变得更具体，但这不是必需的。

如果不匹配，请将命令的输出通过管道传输到文件中，并在此处发布相关部分。

Answer 2

if ($line !~ /^_?([AUD])\\s+(.+)$/应该可以。