"Press any key to continue..."

[1yura1]

How can I make in perl script such procedure where script is waiting for pressing a key. "Press any key to continue..."

 

[comma]

Hi!

One way to do it would be this:

WaitForKey();

sub WaitForKey() {
print "\nPress any key to continue...";
chomp($key = <STDIN>);
}

I hope this helps!

BR,
comma

PS. Perl has also Term::Getch 0.20 -package, which is similar to ReadKey in Win32 (link:

http://aspn.activestate.com/ASPN/CodeDoc/Term-Getch/Getch.html

)

 

[svar]

...and of course you can do it in a gui environment via perl Tk

svar

 

[goliath]

So far I have this for &quot;press any key&quot; - I'm thinking there's a better way but this actually works with &quot;ANY KEY&quot; insted of the ENTER key and anything prior to it.

The Win32::Console is part of perl now I think so you don't have to do any install.

Hope it helps, I'm always hunting for a better 'any key'


use Win32::Console;
my $StdIn = new Win32::Console( STD_INPUT_HANDLE );
my $Password = &quot;&quot;;
$StdIn->Mode( ENABLE_PROCESSED_INPUT );
print &quot;Press Any Key\n&quot;;

while ( my $Data = $StdIn->InputChar( 1 ) ) {
print &quot;$Data\n&quot;;
if ($Data ne &quot;&quot {
last;
}
}

 

[chazoid]

I don't know if this is really considered good programming practice, but in Windows, you can always use:

system(pause);

 

[Akarui]

Another alternative is to download the Term module from CPAN and use a ReadMode/ReadKey combination.

#!usr/bin/perl -w

use strict;
use Term::ReadKey;

sub pause();

print "Test\n";
pause;

sub pause() {
    print "Press any key to continue...";

    ReadMode 'cbreak';
    ReadKey(0);
    ReadMode 'normal';
}