Ako to urobiť dialógové okno Rýchle X11 v Perlu

dialógových okien sa používajú v počítačových aplikácií oznamovať informácie pre používateľov , alebo pre interakciu s užívateľmi . Typickým príkladom dialógového okna je okno pop - up , ktorý sa zobrazí po kliknutí na tlačidlo alebo vykonať akciu pri používaní programu . Tie majú zvyčajne správu a " OK " a " Storno " tlačidlo pre prejsť svoj súhlas , alebo jeho nedostatok , späť do aplikácie . Operačný systém X - Windows ( X11 ) na UNIX podporuje dialógových oknách v Perlu prostredníctvom rámca Tk , čo je grafické užívateľské rozhranie ( GUI ) , systém , ktorý rozširuje funkcie programovacieho jazyka Perl , zjednodušenie kódovanie dialógových oknách . Pokyny dovolená 1

Spustite aplikáciu Perl Editor . Jednoduchý textový editor bude stačiť , ak uložíte súbor s " . Pl " rozšírenie , pretože to bude ukazovať na systéme , ktorý súbor je Perl program .
2

Zadajte záhlaví programu Perl a začať nový program , vrátane " Tk :: DialogBoxA " modulu umiestnenie nasledujúce riadky v hornej časti súboru :

# /bin /perl - w
použitie

Tk ; použitie Tk :: DialogBoxA ;

$ mojím hlavným = MainWindow - > Nový ;
3

Vytvoriť jednoduchý , rýchly " áno /nie " , dialógové okno zadaním nasledujúci kód do editora :

$ dialóg = $ main- > DialogBoxA ( - title = > " zadajte váš titul Here " , Tlačidlá = > [ " Áno " , " Nie " ] ) ;

To vám dialógové okno s dvoma tlačidlami , jeden s nápisom " Áno " a druhý s označením " Nie . "
4

Pridať správu na tlačidlo pomocou štítok zadaním nasledujúci kód do editora :

$ dialóg - > add ( " Zadajte štítok /správu tu " , - text = > $ _ [ 0 ] ) - > balenie ;
5

Zobrazí dialógové okno zadaním nasledujúci kód do editora :

$ button_clicked = $ dialóg - > Show ( ) ;
6

Zadajte všetky požadované kód pre spracovanie , ktoré by malo prebiehať , keď používateľ klikne na tlačidlo " Áno " alebo " Nie " :

if ( $ button_clicked eq " Áno " ) { code ak " Yes " možnosť je vybratá } elsif ( $ button_clicked eq " Nie " ) { kód , ak " je zvolený žiadny " voľba } else { manipuláciu kód chyby platí tu }

• Predchádzajúca strana: PERL Vs . SED 
• Ďalšia strana: Ako skontrolovať hodnoty v pseudokódu