Opened by Kristop8 at 2005-12-17 23:14
User since
2005-10-06
22 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-10-06
22 Artikel
BenutzerIn
Hallo Leute,
stehe mal wieder vor einem bestimmt leicht zu lösenden Problem, welches mich aber schon einige Stunden kostet...
Jetzt aber zum Thema:
Habe in Perl/Tk versucht eine Eingabemaske zu basteln um mehrere Leute nach Ihren Name, Adresse usw abzufragen und dann weiter zu verarbeiten.
Mit diesem Teilstück des Skriptes erstelle ich Entryfelder...
so jetzt will ich auf die einzelnen Einträge zugreien und diese zumbeispiel ausgeben... kirege das aber nicht so richtig hin...
besten Dank im voraus
lg
Chris
stehe mal wieder vor einem bestimmt leicht zu lösenden Problem, welches mich aber schon einige Stunden kostet...
Jetzt aber zum Thema:
Habe in Perl/Tk versucht eine Eingabemaske zu basteln um mehrere Leute nach Ihren Name, Adresse usw abzufragen und dann weiter zu verarbeiten.
Mit diesem Teilstück des Skriptes erstelle ich Entryfelder...
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
...
$frame=$mw->Frame(-bg=>'white')->pack(-side=>'left');
foreach (qw/ Vorname: Nachname: Telefon: Email: /) {
$frame->Label(-text=>$_)->pack();
$frame->Entry(-textvariable=> \$results_1{$_})->pack();}
foreach (qw/ Vorname: Nachname: Telefon: Email: /) {
$frame->Label(-text=>$_)->pack();
$frame->Entry(-textvariable=> \$results_2{$_})->pack();}
....
$frame->Button(-text=> 'Save and Exit', -command =>sub {weiter} )->pack(-side=>'bottom')
sub weiter()
{ ??? }
so jetzt will ich auf die einzelnen Einträge zugreien und diese zumbeispiel ausgeben... kirege das aber nicht so richtig hin...
besten Dank im voraus
lg
Chris