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
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
ulli_away_from_reality - 11. Mai, 11:58