Perl

nobody123 · 04-06-2009, 04:33 PM

Hi all,
I was hoping to find a solution on the forums regarding this topic but the closest result that I got was in BASH programming. I just need to know if there is a way to "press any key to continue" in PERL. Any help is appreciated. If anyone needs more information, just let me know

sjmarshy · 04-06-2009, 04:43 PM

you could just do

print "any key to continue:";
<>;

nobody123 · 04-06-2009, 04:58 PM

Quote:

Originally Posted by sjmarshy

you could just do

print "any key to continue:";
<>;

Well, that's sorta right. What exactly I am aiming for is when the user presses the key, the program exits. No pressing a key and pressing enter. Just one key, then exit. Thanks for the reply, though.

sjmarshy · 04-06-2009, 06:10 PM

well just make it a bit more complex

while ($flag) {

#whatever code you want here

$input = <>;
if ($input =~ /\S\s/) {
$flag = 0;
}
}

i think that's all characters...

to be honest, I don't think that there's a command to do what you want, you'd have to work around it as far as I'm aware. I'm only a perl novice myself

nobody123 · 04-06-2009, 06:52 PM

Quote:

Originally Posted by sjmarshy

well just make it a bit more complex

while ($flag) {

#whatever code you want here

$input = <>;
if ($input =~ /\S\s/) {
$flag = 0;
}
}

i think that's all characters...

to be honest, I don't think that there's a command to do what you want, you'd have to work around it as far as I'm aware. I'm only a perl novice myself

Hi again! Solved the problem (finally found documentation from goggle). I'll just post the code used here for anyone that is interested:

Code:

use Term::ReadKey;
ReadMode('cbreak');
$key = ReadKey(0);
ReadMode('normal');

And here's how I implemented it with my code (as an example of course):

Code:

if (%addresses == null)   #checking if array has nothing in it
{print "\n";
print "Nothing stored in records...\n";
print "\nPress any key to continue...";
use Term::ReadKey;
ReadMode('cbreak');
$key = ReadKey(0);
ReadMode('normal');}
else
{print "\n";
print %addresses;
print "\nPress any key to continue...";
use Term::ReadKey;
ReadMode('cbreak');
$key = ReadKey(0);
ReadMode('normal');
}

Thank's again for your help.