Archive for 十月, 2009

[Perl]刪除特定程式執行緒

{ 26 十月, 2009 @ 12:17 下午 } · { 網頁程式 }
{ 關閉留言功能 }

#!/usr/bin/perl

$getlist = `ps aux|grep x1|grep x2`;
$getlist =~/\w+\s+(\d+)\s+*/;

`kill $1`;