<p>After the <font size="-1">DBM</font> file is tied, you can use it just like
any other hash.</p>
<h2><a name="Is_there_a_way_to_do_GUI_program">Is there a way to do GUI
programming with ActivePerl?</a></h2>
<p>As of the Perl Resource Kit for Win32, the Tk library has been successfully
ported to ActivePerl. Tk version 8xx and above also now has the look and feel of
Windows programs, and not the old <font size="-1">UNIX</font> look of previous
versions.</p>
<p>You can also use the Win32::GUI module which also allows for GUI's to be
made/manipulated using Perl. This module uses the standard Windows widgets to
give the look and feel of Windows programs.</p>
<p>For Tk information, go to <a class="doc" href="http://w4.lns.cornell.edu/~pvhp/ptk/ptkTOC.html">http://w4.lns.cornell.edu/~pvhp/ptk/ptkTOC.html</a></p>
<p>For Win32::GUI, go to <a class="doc" href="http://dada.perl.it">http://dada.perl.it</a></p>
<p><code>Win32::MsgBox</code> allows for a fast and easy way to display a
Windows message box, for example:</p>
<blockquote>
<p><code>use Win32;<br>
<br>
MsgBox("Test", "This is a test", 48);<br>
# display a message box with an exclamation mark and an 'Ok' button<br>
<br>
sub MsgBox {<br>
my ($caption, $message, $icon_buttons) = @_;<br>
my @return = qw/- Ok Cancel Abort Retry Ignore Yes
No/;<br>
my $result = Win32::MsgBox($message, $icon_buttons,
$caption);<br>
return $return[$result];<br>
}</code></p>
</blockquote>
<p>The last value, $icon_buttons, is the sum of two values, the value for the
icon and the value for the buttons. For example, if you need a message box with
a question mark and the 'Ok' and 'Cancel' buttons the value you want is 32
(question mark) + 1 (Ok, Cancel) = 39. The values are listed here:</p>
<blockquote>
<p><code>Icons:<br>
0 - no icon<br>
16 - Hand<br>
32 - Question<br>
48 - Exclamation<br>
64 - Asterisk<br>
<br>
Buttons:<br>
0 - Ok<br>
1 - Ok, Cancel<br>
2 - Abort, Retry, Ignore<br>
3 - Yes, No, Cancel<br>
4 - Yes, No<br>
5 - Retry, Cancel</code></p>
</blockquote>
<h2><a name="Is_there_a_port_of_Oraperl_for_W">Is there a port of Oraperl for
Win32?</a></h2>
<p>Oraperl is available as an emulation layer on top of DBD::Oracle. Oraperl is
included with the DBD::Oracle distribution. Because the DBI interface is
evolving, the Oraperl emulation layer is recommended because its API is fairly stable.
Patches are available for DBD::Oracle that allow it to build on Windows. More
