两个分支之间的非集成变更列表

Question

当我在命令行中使用以下命令时，它会给出非集成更改列表的列表。

p4 interchanges -t $branch1 @$date1, @$date2 $branch2 > changes.txt

但是，当我在 Perl 脚本中使用此命令时，如下所示，它不会给出输出：

$cmd = system ("p4 interchanges -t $branch1 @$date1, @$date2 $branch2 > changes.txt");

命令行中的输出消息是一些错误，如下所示：

branch1, - all revision(s) already integrated.

问题是因为 date1 和 date2 之间使用了逗号？如何在 Perl 脚本中使用此命令？

Answer 1

如果您要使用 Perl 进行大量 Perforce 操作，请尝试 P4Perl，它将 Perforce 包装在 Perl 原生 API 中。

从文档中抄袭，您的 system() 调用可以实现为：

use P4;
my $p4 = new P4;
$p4->SetClient( $clientname );
$p4->SetPort ( $p4port );
$p4->SetPassword( $p4password );
$p4->Connect() or die( "Failed to connect to Perforce Server" );

my $c = $p4->Run( "interchanges", "-t", $branch1, "@".$date1, "@".$date2, $branch2 );

$c 将包含每个未集成变更列表的数组引用。

Answer 2

这就是为什么打开 strict 如此重要的原因警告编译指示。字符串“@$date1”的含义并不像您想象的那样。它试图将 $data1 作为数组取消引用。因为 strict 不在，所以它会将 $date1 的内容视为符号引用。如果您打开了 strict，您会看到如下错误消息：

Can't use string ("2010-08-30") as an ARRAY ref while "strict refs" in use at script.pl line 10.

您可能应该这样说：

system "p4 interchanges -t $branch1\@$date1,\@$date2 $branch2 > changes.txt";
if ($?) {
    die "saw exit code: ", $? >> 8;
}

如果您期望 $branch1，，您也可能会遇到问题>$date1 等是 shell 变量而不是 Perl 变量。在这种情况下你应该说：

system "p4 interchanges -t $ENV{branch1}\@$ENV{date1},\@$ENV{date2} $ENV{branch2} > changes.txt";
if ($?) {
    die "saw exit code: ", $? >> 8;
}