『Perl で Win32::API プログラミング入門』リンクメモ

Win32::APIモジュールやDynaLoaderでの「Hello, World!」プログラム

• http://d.hatena.ne.jp/TAKESAKO/20090324/1237879559

今の私のレベルでは、チンプンカンプンですが、とりあえずメモしときます。

◆Win32::APIモジュールで

#!/usr/bin/perl
use Win32::API;
my $MessageBox = Win32::API->new("user32", "MessageBoxA", "NPPN", "N");
   $MessageBox->Call(0, "Hello, World!\n", "Message", 0);

http://d.hatena.ne.jp/TAKESAKO/20090324/1237879559

◆DynaLoaderで

#!/usr/bin/perl
use DynaLoader;
sub GetProcAddress {
	my ($DLL, $API) = @_;
	my $path = "$ENV{SystemRoot}\\system32\\$DLL";
	my $libref = DynaLoader::dl_load_file($path);
	pack "L", DynaLoader::dl_find_symbol($libref, $API);
}
my $x86 = ""
. "h\0\0\0\0"
. "h" . pack("P", "Message")
. "h" . pack("P", "Hello, World!\n")
. "h\0\0\0\0"
. "\xb8" . GetProcAddress("user32.dll", "MessageBoxA")
. "\xff\xd0" # call eax
. "\xc3"     # ret
;
DynaLoader::dl_install_xsub("X",unpack"L",pack"P",$x86);&X;

http://d.hatena.ne.jp/TAKESAKO/20090324/1237879559

暇な時にソース解析をしてみますね。
しかし、入門といいながら、ソース解説が全くないですね。
だから逆に調べることになり、入門になるの･･･かも。

追記

Win32::APIモジュールは、標準(5.8.8)では入っていなかったので、ppmでインストール。
WIN2000ノートで問題なく動きました。
ちなみに、DynaLoaderの方は標準で動きました。