ActivePerl (Windows版) には DynaLoader が付属しているので、今日からすぐに DynaLoader::dl_install_xsub を利用したプログラミングが出来ます。 簡単なメッセージボックスを表示するPerlプログラムは以下になります。 #!/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(
![Windowsユーザのための初めてのPerlプログラミング - 葉っぱ日記](https://cdn-ak-scissors.b.st-hatena.com/image/square/cd3ebba25120368763fee58103e5e92fdf97c333/height=288;version=1;width=512/http%3A%2F%2Ff.hatena.ne.jp%2Fimages%2Ffotolife%2FT%2FTAKESAKO%2F20090324%2F20090324162207.gif)