Opened by Alexfo85 at 2004-08-27 22:30
User since
2004-08-18
20 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-08-18
20 Artikel
BenutzerIn
also... beschreibung deines problems wäre net schlecht...
$box->insert("end", $var)
ist an sich ok...
allerdings ist die Frage natürlich bei einer Listbox, ob du wie bei dir geschrieben alles in einem Element ahben willst, oder Zeilenweise, zum auswählen..
wenn elke.txt nur 1 Zeile hat... dann ist nur die Klammersetzung falsch... bzw, das print zu nem return, und die referenz..
Richtig:
Falls du aber was ich denke... mehrere Zeilen inder elke.txt hast, die verschiedene einträge sein sollen, würde ich folgendes empfelen:
$box->insert("end", $var)
ist an sich ok...
allerdings ist die Frage natürlich bei einer Listbox, ob du wie bei dir geschrieben alles in einem Element ahben willst, oder Zeilenweise, zum auswählen..
wenn elke.txt nur 1 Zeile hat... dann ist nur die Klammersetzung falsch... bzw, das print zu nem return, und die referenz..
Richtig:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
$box->insert('end', &text); # Keine Ref nötig..
## ^ vor den mainloop!!
sub text {
open(DATEI,"<elke.txt")
or die "Datei kann nicht geladen werden";
undef $/;
my $text=<DATEI>;
close (DATEI);
return $text;
}Falls du aber was ich denke... mehrere Zeilen inder elke.txt hast, die verschiedene einträge sein sollen, würde ich folgendes empfelen:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
# Vor den Mainloop
&text; # Sub Text starten
# dannach, oder egal;)
sub text {
open(DATEI,"<elke.txt")
or die "Datei kann nicht geladen werden";
while(<DATEI>) # Datei zeilenweise lesen
{
chomp $_; #letzes Zeichen, falls Steuerzeichen, entfernen
$box->insert("end", $_); # Ab damit ans ende der Box
}
close (DATEI);
}