|
|
1.1 parser 1: $|=1;
1.2 ! misha 2: print $info=`PSTAT.EXE |cygwin/bin/grep inetinfo`;
1.1 parser 3: #0:00:08.231 0:00:07.250 1988 11427 8744 8 482 15 162 inetinfo.exe pid: a2 pri: 8 Hnd: 482 Pf: 11427 Ws: 1988K inetinfo.exe
4: ($pid)=$info=~/(\d+)\s+inetinfo/i;
5: print $pid?`kill $pid`:"inetinfo not running\n";
6: $secs=1;
7: print "sleeping $secs secs... ";
8: sleep $secs;
9: print "done\n";