Read input from console

[nodopro]

How do I read input from console (/dev/ttyS0)? Normally, perl script read from standard input:

print "Please enter a number: ";
my $number = <STDIN>;

How do I read input from console?

open (CONSOLE, "> /dev/ttyS0");
print CONSOLE "Please enter a number: ";
#read input from console here???

[danielsmw]

Well, firstly, I can't imagine why STDIN wouldn't automatically take input from the console. By default, STDIN takes keyboard input.

If you wanted to, you could open a file handle:

open(CONSOLE_IN, "< /dev/ttyS0");

But to be totally honest, I'm not sure that that would actually work as intended. I think all you're really looking for is what you had.

Basically, if you ran your script like this:

user@host $ perl myscript.pl < fileorfilehandle

Then STDIN would read from the input file. For any case where that's left off; that's to say, you just have

user@host $ perl myscript.pl

Then reading from keyboard input on the current console is the default for STDIN.

Does that answer your question, or is there a deeper problem that I just didn't understand from your post?

[arinlares]

i think he means the console's output after he enters a code.

[nodopro]

Let say I have a linux box without pci graphic card and using console for display. At start up, it automatically run my perl script. However, I need the user to enter the option input. I use putty or hyperterminal for console. I cannot use keyboard to enter in putty or hyperterminal window? I try to type something in putty window but it seems like I cannot. Is there a way I can config this and how to read the input from my script?

Thanks,
nodopro

[nodopro]

I got it. Here is what I did.

open (OUTCONSOLE, "> /dev/ttyS0");
print OUTCONSOLE "Please enter a number: ";
open (INCONSOLE, "< /dev/ttyS0");
my $number = <INCONSOLE>;
close OUTCONSOLE;
close INCONSOLE;

Thanks Daniel for your suggestion, open filehandle to read.

-nodopro