[LUGOS] perl zanka

[Matija Grabnar]

Dalibor wrote:

> Ker nisem vešč programiranja v perlu bi rabil nasvet. Zanima me kako 
> naj izvedem zanko v stilu
> repeat
> until keypressed

Uprabis Term::Readkey :
Lahko
use Term::ReadKey;
while (!defined($key=Term::ReadKey(10))) {
  print "timeout!\n" unless defined($key);
}

Seveda lahko das timeout na -1 (kar bo potem zrlo CPU brez veze) ali pa
na 0, kar bo cakalo v neskoncnost, ce bo treba.

Za vec si preberi perldoc Term::ReadKey