comment on

I was having issues with the following:

> foo.pl
[download]

calling the wait condition

> perl foo.pl
[download]

doesn't wait.

I modified ouse.pm to use Win32::Process::Info to see if the parent process is Windows explorer.

Update: missing line from code

=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=C:\Progra~1\perl\bin\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

use Win32::Process::Info;

END
{
 #-- find the parent process;
 my $pi = Win32::Process::Info->new();
 my @info  = $pi->GetProcInfo ( $$);
 my @pinfo = $pi->GetProcInfo ( @info[0]->{ParentProcessId} );

 #-- see if the parent process is the windows explorer.
 if ( $pinfo[0]->{CommandLine} =~ /explorer/i )
 {
  eval " use Term::ReadKey; ";
  unless($@)
  {
   print "Press any key to close...";
   ReadMode(3);
   ReadKey();
   ReadMode(0);
  }
  else
  {
   print "Press ENTER to close: ";
   <STDIN>;
  }
 }
}

1;
[download]

In reply to Re: -Mouse by jimbojones
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.


No such thing as a small change
	PerlMonks