VPF::функции winapp'а - Форум программистов

kostofffan

Дата 14.11.2004, 00:07 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

как вызвать функцию winapp'а из perl?

Secandr

Дата 14.11.2004, 09:31 (ссылка)

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

Загрузка ...

Связист

Профиль
Группа: Экс. модератор
Сообщений: 4043
Регистрация: 3.8.2003
Где: Russia, Volgograd

Репутация: нет
Всего: 39

А зачем?

--------------------

Мышки плакали, кололись, но продолжали жрать кактусы (с) cisco

kostofffan

Дата 15.11.2004, 11:05 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

мне нужно получит список процессов, проходящих в виндах, и их pid

chaos

Дата 16.11.2004, 07:30 (ссылка)

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

Загрузка ...

Серийный программист

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

Репутация: 3
Всего: 44

посмотри на cpan.org, там были модули winAPI

kostofffan

Дата 16.11.2004, 12:02 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

спасибо, chaos, тоже выход!
Гляну...

Sadok

Дата 16.11.2004, 17:08 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 2.11.2004

Репутация: нет
Всего: 2

Цитата(kostofffan @ 15.11.2004, 11:05)

мне нужно получит список процессов, проходящих в виндах, и их pid

use Win32::Process;

Идет в стандартной поставке ActiveState'а

kostofffan

Дата 17.11.2004, 11:27 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Sadok, читал я эти мануалы, но ничего хорошего там не нашел. Есть там как создать процесс и управлять им, но о получении нужной мне информации и близко ничего нет!

Sadok

Дата 17.11.2004, 21:40 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 2.11.2004

Репутация: нет
Всего: 2

Цитата(kostofffan @ 15.11.2004, 11:05)

мне нужно получит список процессов, проходящих в виндах, и их pid

ОК. Получаем хэш вида "Имя процесса" => PID

Код

use strict;
use Win32::PerfLib;
use Win32::Process;
my %process_by_name = &get_processes;
sub get_processes
{
my (%counter, %r_counter, %process_by_name);
    Win32::PerfLib::GetCounterNames('', \%counter);
    %r_counter = reverse %counter;
my $process_obj = $r_counter{'Process'};
my $process_id = $r_counter{'ID Process'};
my $perflib = new Win32::PerfLib('');
    my $proc_ref = {};
    $perflib->GetObjectList($process_obj, $proc_ref);
    $perflib->Close();
    my $instance_ref = $proc_ref->{'Objects'}->{$process_obj}->{'Instances'};
    foreach my $instance (values %{$instance_ref})
    {
        my $counter_ref = $instance->{'Counters'};
        foreach my $counter (values %{$counter_ref})
        {
            if($counter->{'CounterNameTitleIndex'} == $process_id)
            {
                push @{$process_by_name{$instance->{'Name'}}}, $counter->{'Counter'};
            }
        }
    }
    return %process_by_name;
}

Это сообщение отредактировал(а) HalkaR - 19.11.2004, 17:00

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