Freitag, 11. Mai 2007

Grafische Oberflächen in Perl

Schon mal überlegt Applikationen mit grafischen Oberflächen in Perl zu schreiben? Für mich kam das nie in den Sinn. Java war da immer die erste Überlegung. Aber es gibt eine Möglichkeit in Perl recht schnell grafische Oberflächen zu erstellen und eine Applikation mit entsprechenden Funktionalitäten zum Laufen zu kriegen.

Man muss das Modul "Tk" verwenden.

use Tk;

Im folgenden Beispiel soll gezeigt werden, wie ein Dialog mit Textbox und Button erstellt wird. Bei Klick auf den Button wird der Text, der in der Textbox eingegeben wurde, auf STDOUT ausgegeben und das Fenster geschlossen.

my $mw = MainWindow->new;
$mw->Entry(-width => 10, -textvariable => \$textbox)->pack(-side => "top");
$mw->Button(-text => "Fenster schließen", -command => sub{ print $textbox . "\n"; exit; })->pack(-side => "bottom");

MainLoop;


Für kleine Anwendungen echt eine Alternative zu Java, besonders wenns schnell gehen muss!

Ein Tutorial gibts hier: http://wiki.perl-community.de/bin/view/Wissensbasis/PerlTkTutorial
logo

milchis life

spannend hoch 7

Suche

 

"Icke"

Milchi aka. Ulli

Meine Gadgets


Icke
IT
kulinarisches
kurioses
lyrics
musik
umfragen
webdesign
Profil
Abmelden
Weblog abonnieren