Perl system() 调用失败，返回码 65280

Question

我运行下面的 perl 代码。

$retCode = ClearCase($cmd); 

没有错误，但是当我运行它时它返回65280：

$retCode = ClearCase($logcmd); 

我在 XP 和 Windows 2003 服务器上尝试过，结果相同，均使用 ActiveState Perl v5.14.2。

此代码在 2 年前在其他地方运行。

  $g_HPPC_DEV_DRIVE =  "M";
  $g_HPPC_DEV_VIEW = "bldforge_AOMS_DEV";
  $g_logfile = "logfile.txt";
  
  $cmd = "startview $g_HPPC_DEV_VIEW";
  $logcmd = $cmd . " >> $g_logfile 2>>&1";
  
  $targetDir = $g_HPPC_DEV_DRIVE . ":\\" . $g_HPPC_DEV_VIEW;
  print "\$targetDir = $targetDir\n"; 
  print "Starting view .......\n"; 
  #$retCode = system("cleartool startview bldforge_AOMS_DEV >> logfile.txt");
  #$retCode = `cleartool startview bldforge_AOMS_DEV`;

  $retCode = ClearCase($logcmd);
  #$retCode = ClearCase($cmd);

sub ClearCase
{
  my $retCode = 0;
  my $args = $_[0];

  my $cmd = "cleartool " . $args;
  $retCode = Execute($cmd);

  return $retCode;

}

sub Execute
{
  my $retCode = 0;
  my $cmd = $_[0];

  if ($g_HPPC_BUILD_SIMULATION ne "Y")
  {
     
     print("Execute() Running...:   $cmd\n");     
     $retCode = system($cmd);
     #$retOut = `$cmd`;     
     #$retCode = $?;
     #print("Command execute output: $retOut\n");
  }
  else
  {
     print("Execute() *** SIMULATION:   $cmd\n");     
  }

  print("Execute() retCode = $retCode, $cmd\n");
  
  return $retCode;
}

这个65280退出码是什么意思？

Answer 1

请记住，如perldoc -f system 中所述，system 的返回值“...是等待调用返回的程序的退出状态。要获得实际的退出值，请右移八……”。将 65280 移动 8 得到 255。

但不幸的是，这也不是很有帮助，因为据我所知，每个可能的 cleartool 退出代码的确切含​​义都没有记录。我能找到的最接近的是cleartool documentation 中的此链接，其中指出，“单命令模式的退出状态取决于命令是成功（零退出状态）还是生成错误消息（非零退出状态） )。"

所以你有它; a 255 是一个非零退出状态，表示错误情况。从好的方面来说，它可能会生成一条您没有看到的错误消息。

作为一种故障排除技术，由于您已经在打印$cmd，因此请从命令行调用cleartool，使用您的程序生成的相同命令。如果您得到相同的结果，则问题将变为cleartool 问题而不是 Perl 问题。幸运的是，错误条件会生成一条您可以实际看到的错误消息，而不仅仅是退出代码。

另一方面，如果你得到正确的行为，请开始查看 Perl 运行时环境和命令行环境之间的不同之处；权限、环境变量、路径、工作目录等

Answer 2

在使用cleartool时，最好确保使用ccperl(now called ratlperl)，即ClearCase打包的perl，而不是latest Active Perl(which actually is the 5.14.2)。

因此，不要默认启动您的 perl 脚本，而是选择您的 %PATH% 中可用的第一个 perl.exe，尝试使用其中一个 perl included with ClearCase 调用它：

• ratlperl：在C:\Program Files\Rational\Common。
• 或旧版ccperl：在C:\Program Files\Rational\ClearCase\bin中。

并查看错误是否仍然存在。

根本原因是PATH 问题：有几个perl 可用：

• 来自 Rational ClearCase 的那些
• Active Perl 中的一个

通过确保PATH 只引用一个perl（ClearCase 附带的那个），脚本可以成功启动。