Erste Schritte mit Perl/Tk

tkhello.pl

#!/usr/local/bin/perl
use strict; use warnings;
use Tk;
my $main = new MainWindow;
my $label = $main->Label(-text => 'Hello, world!');
my $button = $main->Button(
   '-text' => 'Quit', '-command' => sub { exit },
);
$label->pack; $button->pack;
MainLoop;

Mit use Tk werden alle zu Tk gehörenden Module importiert einschließlich aller Widgets wie beispielsweise MainWindow. Ferner wird auch der eigene Namensraum mit einigen Namen wie beispielsweise MainLoop geflutet.

Label und Button sind Methoden von $main, die entsprechende Widgets kreieren.

Die Konstruktions-Parameter von Widgets werden als assoziative Arrays übergeben.

Mit der Methode pack wird das jeweilige Objekt an den entsprechenden Geometrie-Manager übergeben.

MainLoop ist die zentrale Schleife, die alle Ereignisse abarbeitet.

	Mit `use Tk` werden alle zu Tk gehörenden Module importiert einschließlich aller Widgets wie beispielsweise `MainWindow`. Ferner wird auch der eigene Namensraum mit einigen Namen wie beispielsweise `MainLoop` geflutet.
	`Label` und `Button` sind Methoden von `$main`, die entsprechende Widgets kreieren.
	Die Konstruktions-Parameter von Widgets werden als assoziative Arrays übergeben.
	Mit der Methode `pack` wird das jeweilige Objekt an den entsprechenden Geometrie-Manager übergeben.
	`MainLoop` ist die zentrale Schleife, die alle Ereignisse abarbeitet.