在windows用perl运行exe

现在做的一个项目，刚刚完成了所有组件的编译链接，运行也没问题。

但是每次运行看效果都得双击六个程序（四个窗口程序和二个命令行程序）。

就想着能不能做一个批处理一次运行了。

先想到的是bat脚本，但因为有两个命令行程序，且都是那种死循环不退出的那种，这造成在bat中开了第一个时卡住不运行第二个。

在网上找了一下关于如何让其后台运行的资料，都是关于VB方面的。

后来想PERL对于这种应该是小菜一碟吧，先在网上找,找到

1 system("Client.exe print");

和上面bat的问题一样。

后来把PERL的帮助文档打开，一看就看到了Win32::Process.

直接把例子COPY下来就能运行了。

但还是有两个问题：

1. 两个命令行程序都同时运行在一个命令窗口中.（和之前bat问题一样）

2. 一些窗口程序本来是可以带入参数，但就是不能正常运行。

 1 #!/usr/bin/perl
 2 
 3 use Win32::Process;
 4 use Win32;
 5 sub ErrorReport{
 6 print Win32::FormatMessage( Win32::GetLastError() );
 7 }
 8 Win32::Process::Create($ProcessObj1, "Client.exe", "", 
 9                     0, NORMAL_PRIORITY_CLASS, ".")|| die ErrorReport();
10 sleep(5);
11 Win32::Process::Create($ProcessObj2, "GndSystem.exe", "",
12                      0, NORMAL_PRIORITY_CLASS, ".")|| die ErrorReport();
13 sleep(5);
14 Win32::Process::Create($ProcessObj3, "LmiInterface.exe", "",
15                      0, NORMAL_PRIORITY_CLASS, ".")|| die ErrorReport();
16 sleep(5);
17 Win32::Process::Create($ProcessObj4, "Monitor.exe", "",
18                      0, NORMAL_PRIORITY_CLASS, ".")|| die ErrorReport();
19 sleep(5);
20 #Win32::Process::Create($ProcessObj6, 'C:\Sim.exe', 'PACARS.sim', 0, NORMAL_PRIORITY_CLASS, 'C:\SecureACARS\Database')|| die ErrorReport();
21 system('C:\Sim.exe PACARS.sim');

另附上请空log文件的perl脚本：

1 #!/usr/bin/perl
2 
3 open $Log, '> C:\GPAComm.log';
4 close $Log;
5 open $Log, '> C:\CoreError.log';
6 close $Log;
7 open $Log, '> C:\GPAError.log';
8 close $Log;

http://www.tianming.me/?p=830