Leser: 1
![]() |
![]() |
2 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
#!/usr/bin/perl -w
use strict;
use Tk;
my $haupt = new MainWindow;
my $links= $haupt->Frame();
$links->Label(-text => "Ausgangsdatei:")->pack();
my $ausgang = $links->Entry();
$ausgang->pack();
$links->Label(-text => "Ausgabedatei:")->pack();
my $ausgabe = $links->Entry();
$ausgabe->pack();
my $schalter = $links->Button(-text => "Einlesen",
-command => \&einlesen
)->pack();
my $schalter2 = $links->Button(-text => "Beenden",
-command=>[$haupt => 'destroy']
)->pack(-pady => "20");
my $rechts= $haupt ->Frame();
$rechts->Label(-text =>"Ihr Ergebnis")->pack();
my $daten = $rechts ->Listbox();
$daten->pack();
$links ->pack (-side =>"left");
$rechts ->pack(-side =>"right");
MainLoop();
sub einlesen {
my $quelle = $ausgang ->get;
my $ergebnis = 0;
$ergebnis = $quelle;
$daten->insert('end', " ". $ergebnis );
}
![]() |
![]() |
2 Einträge, 1 Seite |