Les boîtes de dialogue sont utilisés dans des applications informatiques pour communiquer des informations aux utilisateurs, ou pour interagir avec les utilisateurs. Un exemple typique d' une boîte de dialogue est une fenêtre pop-up qui apparaît lorsque vous cliquez sur un bouton ou effectuez une action en utilisant un programme. Celles-ci ont généralement un message et un bouton "OK" et "Annuler" vous cliquez pour passer votre consentement , ou l'absence de celui-ci , à l'application . Le système d'exploitation X -Windows (X11 ) sur UNIX prend en charge les boîtes de dialogue de Perl dans le cadre Tk , qui est un système d'interface utilisateur graphique (GUI) qui étend les fonctionnalités du langage de programmation Perl , ce qui simplifie le codage des boîtes de dialogue. Instructions
1

Lancez votre application éditeur Perl. Un simple éditeur de texte suffit , à condition que vous enregistrez le fichier avec une extension ". Pl" , car cela indique au système que le fichier est un programme Perl.
2

Type de l'en-tête du programme Perl et de lancer un nouveau programme, y compris le " Tk :: DialogBox « module en ajoutant les lignes suivantes au début du fichier :

# /bin /perl -w

use Tk ; utiliser Tk :: DialogBox ;

$ mon principal = MainWindow -> new ;
3

créer un « non oui /" boîte simple et rapide de dialogue en tapant la suivant le code dans l'éditeur:

$ dialog = $ main -> DialogBox (- title = > " tapez votre titre ici " , boutons => [" Oui ", " Non" ] ) ;

Cela vous donnera une boîte de dialogue avec deux boutons, une case " oui" et l'autre portant la mention « Non»
4

Ajouter un message sur le bouton l'aide d'une étiquette en tapant le code suivant dans l'éditeur:

$ dialog - > add ( " Tapez votre étiquette /message ici " , - text = > $ _ [ 0]) -> paquet ;
5

Afficher la boîte de dialogue en tapant le code suivant dans l'éditeur:

$ button_clicked = $ dialog -> Show () ;
6 < p> Tapez un code requis pour le traitement qui devrait avoir lieu lorsque l'utilisateur clique sur le bouton «Oui» ou «Non» :

if ($ button_clicked eq " Oui " ) {code si " Oui « option est choisie } elsif ($ button_clicked eq" Non ") {code si " l'option no " est choisi } else { code d'erreur de manipulation goes here }