Quelle est la meilleure façon d'effacer l'écran en Perl?

Question

Idéalement, quelque chose de multi-plateforme.

Answer 1

Le CPAN est probablement la meilleure solution. Jetez un oeil à Term::Screen:Uni:

require Term::Screen::Uni; 
my $scr = new Term::Screen::Uni; 

$scr->clrscr() 

Answer 2

Si vous parlez d'un terminal, je voudrais utiliser quelque chose comme le curses pour le faire.

Il y a un module Curses agréable d'y accéder, que vous pouvez utiliser comme ceci:

perl -MCurses -e '$win=new Curses;$win->clear()' 

Answer 3

J'utilise généralement Term::ANSIScreen de CPAN qui me donne toutes sortes de fonctions liées à la console-utiles.

use Term::ANSIScreen qw(cls); 
cls(); 

Answer 4

print "\033[2J"; #clear the screen 
print "\033[0;0H"; #jump to 0,0 

Answer 5

De la réponse de perlfaq8 à How do I clear the screen:

---

Pour effacer l'écran, il vous suffit d'imprimer la séquence spéciale qui indique le terminal pour effacer l'écran. Une fois que vous avez cette séquence, affichez-la lorsque vous voulez effacer l'écran.

Vous pouvez utiliser le module Term :: ANSIScreen pour obtenir la séquence spéciale. Importez la fonction cls (ou la balise écran):

use Term::ANSIScreen qw(cls); 
my $clear_screen = cls(); 

print $clear_screen; 

Le module Term :: Cap peut également obtenir la séquence spéciale si vous voulez traiter les détails de bas niveau de contrôle terminal. La méthode tputs retourne la chaîne pour la capacité donnée:

use Term::Cap; 

$terminal = Term::Cap->Tgetent({ OSPEED => 9600 }); 
$clear_string = $terminal->Tputs('cl'); 

print $clear_screen; 

Sous Windows, vous pouvez utiliser le module Win32 :: Console. Après avoir créé un objet pour la sortie filehandle que vous voulez affecter, appelez la méthode Cls:

use Win32::Console; 

$OUT = Win32::Console->new(STD_OUTPUT_HANDLE); 
$OUT->Cls; 

Si vous avez un programme de ligne de commande qui fait le travail, vous pouvez l'appeler en contre-apostrophes pour capturer tout ce qu'il génère afin vous pouvez l'utiliser plus tard:

$clear_string = `clear`; 

print $clear_string; 

Answer 6

sous OS X et Linux, vous pouvez utiliser la commande Perl suivante:

system("clear"); 

Je ne sais pas ce que l'équivalent est un der Windows.

Modifier: Windows équivalent est:

system("cls");