Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re: -Mouse

by bbfu (Curate)
on Jun 16, 2003 at 21:51 UTC ( #266308=note: print w/replies, xml ) Need Help??


in reply to -Mouse

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

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://266308]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (1)
As of 2022-05-18 04:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Do you prefer to work remotely?



    Results (68 votes). Check out past polls.

    Notices?