A couple of comments.
Firstly, I'd just like to point out that if the script has a syntax error, the window will still disappear. If this is a problem, it can be dealt with using the alternate method suggested by BrowserUk at Re: Small Problem with running Perl Scripts in Windows. His method has a side-effect of dropping to the command line when the script is done, instead of just prompting before closing the window.
Secondly, my preference is to be able to press any key, not just enter, to close the window. The following slight modification is what I installed on my system:
=head1 NAME
ouse.pm
=head1 SYNOPSIS
perl -Mouse file.pl
=head1 DESCRIPTION
Install in your perl/lib or perl/site/lib directory
in a file named "ouse.pm". Then enter the following
commands:
assoc .pl=Perl
ftype Perl=perl -Mouse "%1" %*
Then clicking on a *.pl file will cause the script to
run in a new window but the window will (usually)
not close when the script finishes.
=head1 AUTHOR
tye
http://perlmonks.org/index.pl?node_id=162087
=cut
END {
eval " use Term::ReadKey; ";
unless($@) {
print "Press any key to close...";
ReadMode(3);
ReadKey();
ReadMode(0);
} else {
print "Press ENTER to close: ";
<STDIN>;
}
}
1;
But definitely, ++tye. :)
bbfu
Black flowers blossom
Fearless on my breath
In reply to Re: -Mouse
by bbfu
in thread -Mouse
by tye
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|