|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : HB 2:5020/400 12 Jul 2001 14:30:34
To : All
Subject : Re: Слежение за программой под Win
--------------------------------------------------------------------------------
Timofei Nevoline wrote in <9ijok2$top$1@host.talk.ru>...
>HB <suckmydick@yandex.ru> пишет:
>>Timofei Nevoline wrote in <9ihu4b$q5q$1@host.talk.ru>...
>>>Hадо остановить выполнение пока не завершится другая программа
>>>(процесс)
>
>>perldoc -f system
>Хм. Hе надо _запускать_ программу.
Хм. А почему бы сразу не написать толком, что вы хотите?
> Она уже работает (или не работает).
>Hадо только проверить работает ли она и если да, то дождатся ее
>завершения. В том то и проблема, что я не знаю как определить ИД проги
>только по названию окна/имени файла и как потом с ним оперировать под
>Win.
=============================================================
#!perl -w
use strict;
`pulist.exe` =~ /^far.exe\s+(\d+)/im
or die "far.exe is not running!\n";
print localtime()."\n";
print "Far's PID is $1\nWaiting for it to shut down...";
waitpid($1, 0);
print "\n".localtime()."\n";
print "Press Enter...";
<STDIN>;
=============================================================
Выводит при запуске (Far уже запущен, через неск. секунд закрываем Far):
Thu Jul 12 14:15:55 2001
Far's PID is 221
Waiting for it to shut down...
Thu Jul 12 14:16:08 2001
Press Enter...
=============================================================
pulist -?
PULIST for Windows NT v1.00 Aug 30 1996 21:47:08
(c) Copyright 1996 Scott Field (sfield@microsoft.com) and Microsoft Corp.
This utility displays all the processes running on a system.
If no server name is specified, this utility will attempt to display
the username associated with each process running on the local system.
Usage: pulist [\\Server] [\\Server...]
Конкретно этот pulist (из NT ResKit) под DOS не работает, только под NT. Hо
есть, наверняка, аналоги для DOS. Или можно самому такой написать.
--
HB mailto:npecca@yahoo.com?subject=Usenet
--- ifmail v.2.15dev5
* Origin: VoronezhSvyazInform ISP (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
