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

Question

我在下面的代码,我可以运行$ retCode = ClearCase($ cmd); 没有错误,但运行时返回65280:$ retCode = ClearCase($ logcmd); 我尝试使用XP和Windows 2003服务器,结果相同,都使用ActiveState Perl v5.14.2.

这段代码在2年前的其他地方工作.

谢谢Jirong

  $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;
}

Answer 1

请记住,正如perldoc -f系统中所记录的那样,system" ...的返回值是等待调用返回的程序的退出状态.要获得实际的退出值,请向右移动8 ...... ".将65280移位8会产生255.

但不幸的是,这也不是非常有用,因为据我所知,每个可能的cleartool退出代码的确切含义都没有记录.我能找到的最接近的是cleartool文档中的这个链接,其中它指出" 单命令模式的退出状态取决于命令是否成功(零退出状态)或生成错误消息(非零退出状态). "

所以你有它; 255是非零退出状态,表示错误情况.从好的方面来说,也许它会产生一条你只是没有看到的错误信息.

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

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