Tk::DataTree - Datenstrukturen in Perl/Tk anzeigen

Tk::DataTree dient der Visualisierung von Datenstrukturen. Es ist eine Art Data::Dumper für Tk.


Perl-Quellcode

Das erste Beispiel zeigt anhand eines konstruierten Beispiels, wie Datenstrukturen in Tk::DataTree umgesetzt werden.

#!perl

use strict;
use warnings;
use utf8;
use Tk;
use Tk::DataTree;

my $mw = Tk::tkinit();

my $dt = $mw->Scrolled('DataTree',
	-scrollbars => 'se',
);

$dt->data({ Brot => [
	Korn => [qw/Mischkorn Roggen Weizen Hafer/],
	Weiß => [qw/Weißmix/],
]});

$dt->pack(-fill => 'both', -expand => 1);

$mw->MainLoop();

Das nachfolgende Beispiel zeigt, wie das Objekt für das Tk-MainWindow in Tk::DataTree angezeigt werden kann. Das ist interessant, wenn man einfach mal schnell in Perl-Objekte reinschauen möchte.

Tk::MainWindow in Tk::DataTree anzeigen

#!perl

use strict;
use warnings;
use utf8;
use Tk;
use Tk::DataTree;

my $mw = Tk::tkinit();

my $dt = $mw->Scrolled('DataTree',
	-scrollbars => 'se',
);

$dt->data({%{$mw}});

$dt->pack(-fill => 'both', -expand => 1);

$mw->MainLoop();
Top