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

[Peter Makholm <sslug@sslug>]

Bjørn Bille Højte <sslug@sslug> writes:

> Disse to scripts skulle nu gerne samles til et, men jeg mangler noget der
> kan læse fra stdin. Hvis der ikke er et tegn at læse, skal den blot gå
> videre i løkken.

Du skal nok bruge IO::Handle:

#!/usr/bin/perl

use IO::Handle

my $io = new IO::Handle;
$io->fdopen(fileno(STDIN),"r") or die;
$io->blocking(0);

$|++;
do {
    print ".";
} until ($io->getc);

print "\n";
__END__

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

-- 
 Peter Makholm     |     Have you ever felt trapped inside a Klein bottle?
 sslug@sslug |                                                      
 http://hacking.dk |