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 |