terminal control in MS

[RandomWalk]

Dear Monks, I'm embarrassed to impose on your remarkably good will but I'm at a loss. I was reading the Llama at a MS Windows box. I got to "Getting User Input" and tried out the example:

$line = <STDIN>;
print "That line of input was: $line";

When I run the script by 2-clicking on the cute pearl icon, the window displaying the output disappears faster than I can see whether the program succeeded or failed. Where do I learn how to control that window? In fact, I don't care so much about seeing what's sent to STDOUT as I do about having STDERR persist in a visible form when the program is launched in this way.

Thank you (again).

[Roger]

Many solutions -

Solution 1
Run it under the DOS prompt!

Solution 2
Add sleep(5); to the end of your script to wait for 5 seconds, long enough for you to inspect its output, whether it has failed or not.

Solution 3
having STDERR persist in a visible form when the program is launched in this way

You could create a short-cut to your perl script, and modify the property of the shortcut to something like -


C:\Perl\bin\Perl.exe C:\Perl-examples\example.pl 2> C:\Perl-examples\e
+xample.log

Which will redirect your STDERR to a log file when you double click on the short-cut.

Solution 4
Capture stuff printed to STDERR in your program, and pause at the end if anything was printed to STDERR. The perl script will only pause when there is something printed to STDERR.



  use IO::Capture::Stderr;
  my $capture = IO::Capture::Stderr->new();
  $capture->start();       # start captured


  # your stuff here...

  print STDERR "...\n";    # STDERR is captured
  print "...\n";           # STDOUT is not captured



  # at the end
  $capture->stop();        # stop capture
  my @err = $capture->read;
  if ($#err >= 0) {        # any captured error?
    print "$_" for @err;   # print stderr to screen
    <STDIN>;               # wait for input
  }

[jweed]

Or, you could have:

...code...
<STDIN>; #Dummy input!

In effect, this acts as a "press enter to leave button."

I have stuck to this one since I programmed in Basic with getkey x to keep the terminal open.

Fixed filehandle - 11/24

[AcidHawk]

[AcidHawk]

[tye]

See also -Mouse.

[RandomWalk]

I like how this place works! I can combine suggestions from Roger and -Mouse to get a window only for STDERR:

package ouse;

BEGIN {
   use IO::Capture::Stderr;
   $ouse::capture = IO::Capture::Stderr->new();
   $ouse::capture->start();
}

END {
   $ouse::capture->stop();
   my @err = $capture->read;
   if ($#err >= 0) {  
     print "$_" for @err;
     <STDIN>;
   }
}

1;

Thank you for taking the time.