perl开启并关闭w32进程

       perl是个很强大的脚本语言，cpan包罗万象的库使其几乎无所不能，就比如进程控制这一块，java难以施展手脚。

下面是一个windows下进程控制的的代码，启动一个进程并关闭它。

 

 1、启动记事本，10秒后关闭它

 

$pid=open P,"| notepad" or die 'error';
print $pid;
sleep 10;
kill STOP,$pid;
close P;

 

 

 

2、启动ie浏览器，打开163主页，10秒后关闭浏览器

use Win32::Process;
use Win32;

Win32::Process::Create(
	$ProcessObj,
	"C:\\Program Files\\Internet Explorer\\iexplore.exe",
	"iexplore http://www.163.com",
	0,
	NORMAL_PRIORITY_CLASS,
	"."
) || die ErrorReport();
sleep 10;
$ProcessObj->Kill(0);# 或者  kill STOP,$ProcessObj->GetProcessID();

 

注意：

1. 第一种方式是通用跨平台的，但并非无所不能， 比如第一种来打开ie ，firefox这些进程 ，就无法关闭它，其原因

    获取的进程id不对，具体我也不知道怎么回事，另外linux下打开fireofx也是获取不到正确的pid

 

2.第二种只对windows系统有效，当进程是chrome时，无法关闭，chrome打开后演变成了多进程了，原来的进程似乎      已经消亡，结果就出现了无法关闭的现象。