Dialogbokser brukes i dataprogrammer for å formidle informasjon til brukere , eller for å kommunisere med brukerne . Et typisk eksempel på en dialogboks er et pop -up vindu som vises når du klikker på en knapp eller utføre en handling mens du bruker et program . Disse har vanligvis en melding og en "OK " og "Avbryt "-knappen du klikker for å passere ditt samtykke , eller mangelen på dem , tilbake til programmet . The X - Windows operativsystem ( X11 ) på UNIX støtter dialogbokser i Perl gjennom Tk rammeverket , som er et grafisk brukergrensesnitt ( GUI ) system som utvider funksjonaliteten i Perl programmeringsspråk , forenkle kodingen av dialogbokser . Instruksjoner
en

Start din Perl -redigering. En enkel tekst editor vil være nok, forutsatt at du lagrer filen med en " . Pl " forlengelse , da dette vil indikere for systemet at filen er et Perl program .
2

Skriv inn Perl program header og lansere et nytt program , inkludert " Tk :: DialogBox " modulen ved å plassere følgende linjer øverst i filen !

# /bin /perl -w

bruk Tk ; bruke Tk :: DialogBox ;

$ min viktigste = MainWindow - > new ;
3

Lag en enkel , rask " ja /nei "-dialogboksen ved å skrive følgende kode inn i editoren : en

$ dialog = $ main - > DialogBox ( - title = > " Skriv tittelen Here ", - knapper = > [" Ja" , "Nei" ] ) ;
p Dette vil gi deg en dialogboks med to knapper , en merket " Ja " og den andre merket " Nei"
4

Legg til en melding til knappen ved hjelp av en etikett ved å skrive følgende kode inn i editoren : en

$ dialog- > add ( " Skriv inn etiketten /melding her " , - text = > $ _ [ 0 ] ) - > pakke ;
5

Vis dialogboksen ved å skrive følgende kode inn i editoren : en

$ button_clicked = $ dialog- > Show ();
6 < p> Skriv inn eventuelle nødvendige koden for behandling som bør skje når brukeren klikker på "Ja" eller "Nei "-knappen : en

if ( $ button_clicked eq " Ja" ) { kode hvis " Ja "alternativet er valgt } elsif ( $ button_clicked eq " Nei " ) { kode hvis " nei " alternativet er valgt } else { feilhåndtering koden går her }