Comment puis-je effacer l'écran dans un terminal à l'aide de Perl?

C'est le officiel FAQ répondre moins toutes les modifications ultérieures apportées.

Pour effacer l'écran, il vous suffit d'imprimer la séquence particulière qui indique au terminal pour effacer l'écran. Une fois que vous avez la séquence de sortie lorsque vous souhaitez effacer l'écran.

Vous pouvez utiliser le Durée::ANSIScreen module pour obtenir la séquence particulière. Importer le cls de la fonction (ou le :screen tag):

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

print $clear_screen;

La Durée::Cap module peut également obtenir la séquence particulière si vous voulez traiter avec les détails de bas niveau de contrôle terminal. Le Tputs méthode renvoie la chaîne de caractères pour la capacité donnée:

use Term::Cap;

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

print $clear_screen;

Sur Windows, vous pouvez utiliser le Win32::Console module. Après la création d'un objet pour le descripteur de fichier de sortie que vous souhaitez affecter, appelez le Cls méthode:

Win32::Console;

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

print $clear_screen;

Si vous avez un programme de ligne de commande qui fait le travail, vous pouvez l'appeler dans backticks pour capturer quoi qu'il en sorties de sorte que vous pouvez l'utiliser plus tard:

$clear_string = `clear`;

print $clear_string;

OriginalL'auteur

Les Utilisateurs de Linux, utilisez la commande suivante:

system 'clear';

OriginalL'auteur Amit