print in PERL

[Peter Kundrat]

On May 16, Leo Hadacz wrote
> mam nasledujici kratky programek:
...
> Vystupem je 
> 1 2 3 4 5 6 7 8 9 10 Sorry. Try again later.
> Jenze ja chci, aby se cisla 1..10 vypisovala postupne kazde 2 sekundy.
> Namisto toho si to PERL uklada nekam do bufferu a vypise to vsechno zaraz az
> se znakem \n.
> 
> Co mam udelat, aby to jelo tak, jak chci? Diky.

$|=1  zabezpeci, ze po kazdom zapise na aktualny vystupny kanal sa urobi 
      flush().

Ak to treba pre iny ako aktualny vystupny kanal, je mozne pouzit nasledovnu
konstrukciu:

	select((select(HANDLE), $|=1)[0])

alebo objektovo:
	use FileHandle; 
	HANDLE->autoflush(1);

						pk
-- 
kundrat na napri.sk,  Peter KUNDRAT,  http://www.napri.sk/~kundrat/
** You teach best what you most need to learn.