Neblokovane cteni ze STDIN - vyreseno2

[Honza Pazdziora]

On Mon, May 19, 2003 at 01:42:13PM +0200, Vlasta Šeliga wrote:
> 
> Jak se cim vic seznamuju s perlem, prisel sem na dalsi, ted uz snad 
> konecne reseni (== lip to snad udelat nejde). Pokud mate nekdo jeste 
> neco lepsiho, sem s tim.
> 
> #!/usr/bin/perl
> 
> require Term::Screen;
> $scr = new Term::Screen;
> $scr->clrscr();
> do{
> 	$first = $scr->getch() if $scr->key_pressed() ;
> }until($first eq "q" );

A neni to tak, ze Term::Screen ma smysl pouze pokud chcete zapisovat
na ruzna mista na obrazovce (tedy pro vystup), zatimco pro cteni je
nejvhodnejsi standardni Term::ReadKey? Ono samozrejme taky zalezi na
tom, jestli Vam jde o neblokovane cteni ze STDIN nebo z terminalu, coz
napriklad po presmerovani STDIN nemusi byt jedno a totez.

-- 
------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
 .project: Perl, mod_perl, DBI, Oracle, auth. WWW servers, XML/XSL, ...
		Only self-confident people can be simple.