How to wait for key press in perl script?

Question

I am trying to execute a binary using the following command :

system("update");

After executing "update" command, the system prompts the following :

"Press ENTER to exit:"

How do I implement the above in my perl script?

Do you mean you want too implement a similar prompt or do you want to be able too respond too the prompt? — user266647
– user266647, Commented Nov 18, 2011 at 6:23

paradd0x · Accepted Answer · 2011-06-09 15:00:54Z

30

use strict;
use warnings;

print "Press ENTER to exit:";
<STDIN>;

answered Jun 9, 2011 at 15:00

paradd0x

6858 silver badges15 bronze badges

Sign up to request clarification or add additional context in comments.

3 Comments

David W. Over a year ago

You may also have to set $| to something other than undef or 0. Otherwise, the output gets buffered, and depending upon the system, it might not do quite what you want.

user2493235 Over a year ago

Terminal output doesn't get buffered. Am I missing something?

SF. Over a year ago

@user2493235 I was using $| set to Null to read from a socket, where protocol packets were null-separated. Afterwards, trying to read from <STDIN> like above would keep reading until I either entered the null character (Ctrl+shift+@) or EOF (ctrl+D) - pressing enter had no effect. Setting #| to "\n" solved the problem.

PodTech.io · Accepted Answer · 2015-05-19 13:54:58Z

5

#! usr/bin/perl
print "How old are you?";
$age = <>;
print "WOW! You are $age years old!";

answered May 19, 2015 at 13:54

PodTech.io

5,31246 silver badges24 bronze badges

Collectives™ on Stack Overflow

How to wait for key press in perl script?

2 Answers 2

3 Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

3 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related