Dotaz: Perl - vyčištění obrazovky stejně jako příkaz clear v Bashi

[Markus]

Nasel jsem na CPANu modul clear:
http://search.cpan.org/~cwest/ppt-0.14/bin/clear
Stahl jsem ho (clear.pm)

Kdyz pouziju use clear; tak se okamzite obrazovka vycisti. Ale kdyz ji chci vycistit potom jeste jednou, tak uz to nejde:(

Vite jak na to?

Odpovědi

[Michal Marek (twofish)]

Stahl jsem ho (clear.pm)

já tam našel jenom "program" clear (který při spuštění smaže obrazovku), ne perl modul.

Vite jak na to?

Přečíst si ten skript, má asi 20 řádek.

[unchallenger]

Humpolácká implementace clear (bez ošetření chyb) v Perlu je:

perl -MTerm::Cap -e 'print Term::Cap->Tgetent()->Tputs("cl",1)';

Vzhledem k tomu, že odkazovaný kód ošetřuje chyby umístěním problematického kódu do evalu, aby perl neřval, tak to vyjde zhruba nastejno ;-)