如何从 Perl 中的 Subversion 预提交挂钩访问提交的文件？

Question

我需要执行以下操作：

1. 在 Perl 中编写预提交挂钩

2. Hook 应该检查所有正在提交的文件是否存在某些文本，如果该文本是，则失败not find

基本上，我需要一个读取正在提交的文件的 Perl 挂钩示例。

我我真的在寻找一些代码量最少的优雅解决方案。

笔记： Hook 应该使用 svnlook 或其他更好的方式来查找文件。

Answer 1

预提交挂钩：

my $repos = shift;
my $txn = shift;

foreach my $line (`$svnlook changed -t $txn "$repos"`)
{
  chomp($line);
  if ($line !~ /^([AUD_]).\s\s(.+)$/)
  {
    print STDERR "Can't parse [$line].\n";
    exit(1);
  }
  else
  {
    my $action = $1;
    my $file = $2;
    chomp($file);
    #If path has trailing slash, then it is a folder and we want to skip folders
    if($file =~ /\/$/)
    {
    next;
    }
    my $fileContent = `$svnlook cat -t $txn "$repos" "$file"`;
    if ($action =~ /[AU]/)
    {
       my @lines = split(/\n/, $fileContent );
       #Check for whatever you need in this file's content

    }
  }
}

Answer 2

听起来你已经弄清楚了基础：

• 获取所有正在提交的文件的列表，
• 依次搜索每个文件以查找特定文本，
• 如果找到文本，则拒绝提交

你将找到一些有关编写预提交挂钩的信息手册。

Answer 3

修改 Python 中的这个示例 可以完成您想要的操作。另请参阅存储库的 hooks 子目录以获取一些模板和 挂钩脚本 和 贡献的钩子脚本。