perl - 将提交评论复制到 Windows 剪贴板

Question

我最近看到一个针对 ClearCase 的绝妙 hack，其中版本号作为提交的一部分被添加到 Windows 剪贴板。黑客看起来像这样:

@rem = ' PERL for Windows NT - ccperl must be in search path
@echo off
ccperl %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
@rem ';

#$CLEARCASE_COMMENT = $ENV{CLEARCASE_COMMENT};
#$CLEARCASE_FILE1   = $ENV{CLEARCASE_PN};
#$CLEARCASE_FILE2   = $ENV{CLEARCASE_XPN};

#print "DEBUG: $CLEARCASE_FILE2\n";

#$message = "Element: $CLEARCASE_FILE2";

use Win32::Clipboard;
Win32::Clipboard::Set($ENV{CLEARCASE_XPN});
#$CLIP = Win32::Clipboard();
#$CLIP->Set($ENV{CLEARCASE_XPN});


__END__
:endofperl

现在，我们已经(或开始)从 CC 转移到 Subversion，我的一位用户非常热衷于在 Subversion 中拥有相同的功能(我猜是 TortoiseSVN)。

有人在 svn 环境中看到或尝试过类似的东西吗？

Answer 1

是的，Tortoise SVN 支持client-side hooks .

看起来你会创建一个 post-commit Hook 来运行 ...\path\to\perl ...\path\to\script.pl

提交后 Hook 在 @ARGV 中接收以下内容:

$ARGV[0]: PATH
$ARGV[1]: DEPTH
$ARGV[2]: MESSAGEFILE
$ARGV[3]: REVISION
$ARGV[4]: ERROR
$ARGV[5]: CWD 

这些在链接文档中定义。

所以脚本应该是

use strict;
use warnings;

use Win32::Clipboard qw( );

my $clip = Win32::Clipboard();
$clip->Set($ARGV[3]);

未经测试。