Re: [PERL] Læse eventuelt input fra stdin.

[Bjørn Bille Højte <sslug@sslug>]

On Wed, 5 Mar 2003, Peter Makholm wrote:

> #!/usr/bin/perl
>
> use IO::Handle
>

Det vil jeg forsøge...

> Men der er stadig problemet med at getc er STDIN er linjeorienteret så
> du først får tegnet når brugeren trykker enter.

Den er jeg - næsten - kommet uden om med følgende:

system "stty", '-icanon', 'eol', "\001";
<start løkke>
$cc = getc();
<end løkke>
system "stty", 'icanon', 'eol', '^@';

Gad vide hvad det er jeg sidder og laver, ovenstående fandt jeg i
Perl FAQ 4.31.

Med venlig hilsen
Bjørn Bille Højte
sslug@sslug