Opened by theresa at 2007-07-17 14:19
User since
2007-07-17
90 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2007-07-17
90 Artikel
BenutzerIn
Ich muss mit einem Frame Daten abfragen, in ein Array speichern und zurückgeben.
Hab den Code auf das Minimale beschränkt, wo der Fehler auftaucht...
Der sieht so aus
Als Rückgabe hätte ich gerne das Array, kommt aber eine 0 raus.
Was nicht passiert ohne Frame usw.
Deswegen denke ich, dass das Frame meine Rückgabe mit einer Erfolgsmeldung überschreibt, oder so etwas in der Art.
Kann mir jemand sagen wie ich das Array aus dieser Subroutine holen kann?
Danke
Hab den Code auf das Minimale beschränkt, wo der Fehler auftaucht...
Der sieht so aus
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
@array = subr();
foreach(@array){print $_};
sub subr{
my $mw = new MainWindow;
my $frame = $mw -> Frame() -> pack();
my $ok_but = $frame -> Button(-text=>"Ok", -command =>\&subr2) -> pack();
MainLoop;
sub subr2{
@array = (1, 2, 3);
$mw -> destroy();
return @array;
}
}
Als Rückgabe hätte ich gerne das Array, kommt aber eine 0 raus.
Was nicht passiert ohne Frame usw.
Deswegen denke ich, dass das Frame meine Rückgabe mit einer Erfolgsmeldung überschreibt, oder so etwas in der Art.
Kann mir jemand sagen wie ich das Array aus dieser Subroutine holen kann?
Danke