Ищется способ вызывать WinAPI из ActivePerl

[tyomitch]

что для этого нужно?

[tyomitch]

Вон какую чудную цитату нагуглил:

Win32::GetProcAddress(INSTANCE, PROCNAME)

[EXT] Returns the address of a function inside a loaded library. The information about what you can do with this address has been lost in the mist of time.

[uhm]

[uhm]

По делу:

http://www.prolib.ru/cgi-bin/give/?oid=15

Сам не читал, но там есть следующее:

Если бы в perl можно было напрямую работать со стеком и вызывать функций по указателю, то нам не пришлось бы лезть в C. Однако, по вполне понятным причинам такого механизма в perl нет. И, во всяком случае, если вы знаете что такое стек и как с ним работать, то несколько строк на C вас нисколько не испугают. В общем решение здесь одно - создать модуль, через который программа на perl получит доступ к нужным функциям WinAPI.

[tyomitch]

Уже нашёл http://search.cpan.org/~acalpini/Win32-API-0.41/API.pm
Что делать дальше, пока не понимаю, но видимо развязка близка.

[tyomitch]

Вроде что-то работает.
Осталось найти способ передавать в API указатель на функцию (как это называется в Перле? кажется, closure?)


Вот код, который я никак не могу заставить работать:

Код: Выделить всё

use Win32::API;
use Win32::API::Callback;

Win32::API->Import("user32", "EnumWindows", "KN", "N");

sub _EnumWindows {
EnumWindows (Win32::API::Callback->new(
   sub { my($hWnd, $lParam) = @_; &$lParam($hWnd); return 1; },
   "NP", "N"), shift);
}

$handler = sub {print shift;};
&$handler("foo!");  #работает как надо
_EnumWindows ($handler);  #не работает
_EnumWindows (\$handler); #тоже не работает


[tyomitch]

Любопытный памфлет на тему XS, пропитанный идеей "все юниксоиды -- придурки, а перловики -- в особенности"

http://world.std.com/~swmcd/steven/perl ... index.html