VPF::Узнать информацию про текущий процесс

tishaishii

Дата 27.3.2007, 10:45 (ссылка)

(нет голосов)

Загрузка ...

Создатель

Профиль
Группа: Завсегдатай
Сообщений: 1262
Регистрация: 14.2.2006
Где: Москва

Репутация: 4
Всего: 8

Надо узнать какой программой был запущен текущий процесс.
Ну, т.е.

Код


#41.pl
open my$fh, '|perl 42.pl';
print <$fh>;
close $fh;

Код


#42.pl
print #путь к запустившей программе

arto

Дата 29.3.2007, 11:16 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

$$ -- process id. остальное системо-зависимо.

tishaishii

Дата 30.3.2007, 19:31 (ссылка)

(нет голосов)

Загрузка ...

Создатель

Профиль
Группа: Завсегдатай
Сообщений: 1262
Регистрация: 14.2.2006
Где: Москва

Репутация: 4
Всего: 8

Мне не pid надо.
Надо для MSвиндовс 98\XP\2003\2000\ME

arto

Дата 31.3.2007, 16:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

perldoc Win32::Process

tishaishii

Дата 31.3.2007, 18:37 (ссылка)

(нет голосов)

Загрузка ...

Создатель

Профиль
Группа: Завсегдатай
Сообщений: 1262
Регистрация: 14.2.2006
Где: Москва

Репутация: 4
Всего: 8

И что ты этим хотел сказать? Тебе показать возможности Win32::Process? Почитай perldoc Win32::Process.
Ну приведи пример с использованием Win32::Process, чтобы можно было узнать какой процесс запустил мой.

arto

Дата 1.4.2007, 08:59 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

я как раз и привел ссылку на документацию, что в виндовс это не получить.

Ramirez

Дата 2.4.2007, 02:46 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 305
Регистрация: 18.1.2005
Где: Moscow, ExUSSR

Репутация: 4
Всего: 5

этим можно http://search.cpan.org/~wyant/Win32-Proces...ess/Info/WMI.pm

Код


#!/usr/bin/perl

use Win32::Process::Info
$pi = Win32::Process::Info->new (undef, 'WMI');
@pids = $pi->ListPids ();      # Get all known PIDs
@info = $pi->GetProcInfo ($$);   # Get the max
@parent =  $pi->GetProcInfo ($info[0]{ParentProcessId});

print "-----------------\n";
foreach (keys %{$info[0]} ) {
    print "MY $_ -> ".$info[0]{$_}."\n";
}

print "-----------------\n";
foreach (keys %{$parent[0]} ) {
    print "PARENT $_ -> ".$parent[0]{$_}."\n";
}

Это сообщение отредактировал(а) Ramirez - 2.4.2007, 12:00

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »