|< 1 2 >| | 13 Einträge, 2 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
%labels = {
"lab1" => $frm_name->Label(-text=>"Server name:"),
"ent1" => $frm_name->Entry(),
"lab2" => $frm_name->Label(-text=>"Server domain:"),
"ent2" => $frm_name->Entry(),
"lab3" => $frm_name->Label(-text=>"User name:"),
"ent3" => $frm_name->Entry(),
"lab4" => $frm_name->Label(-text=>"Password:"),
"ent4" => $frm_name->Entry()
};
for(1..4) {
$labels{'lab'.$_}->pack();
$labels{'ent'.$_}->pack();
}
QuoteReference found where even-sized list expected at pin-mail.pl line 64.
Tk::Error: Can't call method "pack" on an undefined value at pin-mail.pl line 76
.
Tk callback for .frame
main::addNewMailAccount at pin-mail.pl line 76
Tk callback for .button1
Tk:: at C:/Perl/site/lib/Tk.pm line 252
Tk::Button::butUp at C:/Perl/site/lib/Tk/Button.pm line 111
<ButtonRelease-1>
(command bound to event)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
%labels = {
"lab1" => $frm_name->Label(-text=>"Server name:"),
"ent1" => $frm_name->Entry(),
"lab2" => $frm_name->Label(-text=>"Server domain:"),
"ent2" => $frm_name->Entry(),
"lab3" => $frm_name->Label(-text=>"User name:"),
"ent3" => $frm_name->Entry(),
"lab4" => $frm_name->Label(-text=>"Password:"),
"ent4" => $frm_name->Entry()
};
for(1..4) {
$labels{'lab'.$_}->pack();
$labels{'ent'.$_}->pack();
}
Quote[/quote]Reference found where even-sized list expected at pin-mail.pl line 64.
Tk::Error: Can't call method "pack" on an undefined value at pin-mail.pl line 76
.
Tk callback for .frame
main::addNewMailAccount at pin-mail.pl line 76
Tk callback for .button1
Tk:: at C:/Perl/site/lib/Tk.pm line 252
Tk::Button::butUp at C:/Perl/site/lib/Tk/Button.pm line 111
<ButtonRelease-1>
(command bound to event)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
$labels = {
"lab1" => $frm_name->Label(-text=>"Server name:"),
"ent1" => $frm_name->Entry(),
"lab2" => $frm_name->Label(-text=>"Server domain:"),
"ent2" => $frm_name->Entry(),
"lab3" => $frm_name->Label(-text=>"User name:"),
"ent3" => $frm_name->Entry(),
"lab4" => $frm_name->Label(-text=>"Password:"),
"ent4" => $frm_name->Entry()
};
for(1..4) {
$labels->{'lab'.$_}->pack();
$labels->{'ent'.$_}->pack();
}
Quote\n\nGlobal symbol "$labels" requires explicit package name at pin-mail.pl line 64.
Execution of pin-mail.pl aborted due to compilation errors.
1
2
3
4
5
6
7
my %hash = (test => 1); # Hash
my $hash_ref = {test => 1}; # Hash Reference
# Zugriff:
$hash{test} = 2;
$hash_ref->{test} = 2;
|< 1 2 >| | 13 Einträge, 2 Seiten |