如标题所示,我是从我用 perl 编写的提交后挂钩脚本调用的,该脚本具有命令
$msg = `$svnlook changed -t "$rev" "$repos"`;
这应该执行,而不是我应该发送$msg
给我的服务。但是当我跑步时
if ( length($msg) == 0 )
{
print STDERR "msg length is 0";
exit(1);
}
我在控制台上收到此错误消息,那么为什么svnlook
没有执行此命令?
我正在使用 Windows 7 和 VisualSVN 服务器。
另一方面,我有其他理论可以在钩子本身中运行此命令,例如
@echo off
set repos=%1
set rev=%2
set changes=svnlook changed %repos% -r %rev%
C:\Perl64\bin\perl C:\repositories\myproject\hooks\myhook.pl %1 %2 changes
但我不知道如何传递这个changes
参数,所以如果这可以工作,它也可以回答。
如何将参数从批处理传递到 perl 脚本?