local $commandType = shift;
    local $command = shift;
    local $old_select = select (STDOUT);

    local $flush_status = $|;            # save the flushing status
    $| = 1;                # force flushing of the io buffer
    print $DIR_PREFIX, "$commandType $command\n";    
    #这里print应该是将我们的脚本中的命令发送给主程序去执行
    $| = $flush_status;              # restore the original flush status
    select ($old_select);  

  DWORD dwRead,dwWritten; 
  BOOL fSuccess; 
  HANDLE hStdout; 

                hStdout = GetStdHandle(STD_OUTPUT_HANDLE); 
  // Write to standard output. 
  ZeroMemory(commandBuf,sizeof(commandBuf));
  strcpy(commandBuf,"@%#%@");
  strcat(commandBuf,commandType);
  strcat(commandBuf," ");
  strcat(commandBuf,command);
  strcat(commandBuf,"\n");
  dwWritten=0;
  dwRead=strlen(commandBuf)+1;
  fSuccess = WriteFile(hStdout, commandBuf, dwRead, &dwWritten, NULL); 
  if (! fSuccess) 
    return 0;

  return TRUE;

[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入！