Effacer l'ecran en perl

Erwan -  
 Gfaf -
Je souhaite effacer l'écran en perl puis executer mon script perl. Comment faire? merci d'avance

6 réponses

  1. jisisv Messages postés 3678 Statut Modérateur 936
     
    Sur un terminal linux, un xterm
    perl -e ' print "\033[2J"; '
    doit faire l'affaire
    -->
    print "\033[2J";

    Sous WIN$ , il faudrait avoir un pilote ANSI pour les terminaux.
    Sous Win9* ça ne pose pas de problème.
    Soux NT, XP, je n'ai jamais essayé, car ce sont des systèmes peu conviviaux pour le programmeur. Enfin on ne trolle plus à ce sujet.

    Johan
    Gates gave you the windows.
    GNU gave us the whole house.(Alexandrin)
    0
    1. erwan
       
      petite rectification:
      effectivement sur une ligne de commande ca fonctionne mais ds un prog c plus la meme chose. J'avais pas tilté tt a l'heure. Tu as pas une idée a me soumettre? merci
      0
  2. erwan
     
    merci ca fonctionne en tt cas sous unix.
    Je sais pas comment tu as trouvé cette commande mais elle est vraiment sioux!!! ;0)
    0
  3. jisisv Messages postés 3678 Statut Modérateur 936
     
    Tu fais des entrées depuis la console?
    Tes entrées/sorties n'arrivent pas dans le bon ordre?
    Mets éventuellement la variable $| à 1
    pour supprimer le tampon de sortie de STDOUT.
    (recherche google OUTPUT_AUTOFLUSH)
    http://fr.selfhtml.org/cgiperl/langage/predefini.htm
    ($OUPUT_AUTOFLUSH)

    Johan
    Gates gave you the windows.
    GNU gave us the whole house.(Alexandrin)
    0
  4. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  5. erwan
     
    non non le but est juste d'effacer l'ecran en lancant le prog puis d'aficher le contenu d'un fichier placer en parametre.
    0
  6. Gfaf
     
    Sinon vola une petite méthode bête mais je croix que sa va marcher a tout les coûts
    si vous travailler sur "Linux ou Unix" il suffis d'aller a la ligne de commande et de tapé par exemple

    aller sur la console:
    $clear                                    #bon cette command efface l'ecran biensur mais
    $clear > mon_codage.txt           #un ficher mon_codage.txt est crée sur  le répertoir en cour
    $ls                                          #en tape ls pour vrifier la presence du fichier crée puis...
    $gedit mon_codage.txt &            #copier la chainne tel-quele (gedit ou kwrite ou autre...)
    

    puis tu peut coller cette chaine dans ton code perl, par ex:

    -----------programme.pl-------------------
    #/usr/bin/perl
    print "[H[2J";
    print "voila mon codage qui efface l'ecran de ma console";
    ---------------------------------------------
    


    ça marche normalement pour n'importe quel terminal. OK by
    0