Opened by use_Tk at 2011-04-26 19:47
User since
2011-03-31
15 Artikel
BenutzerIn
2011-03-31
15 Artikel
BenutzerIn
zu 1:
Ich schwöre dir das ich im code ein komma habe, ein skript das einfach nur den fehler ausspuckt:
Ich hab keine methode gefunden wie ich $mw also das hauptfenster(Tk) an ein externes modul übergeben kann ohne eine globale variable, strict hat also nicht gemeckert sondern die funktion blockiert da $mw nur im Hauptskript als hauptfenster gezählt hat.
Ich schwöre dir das ich im code ein komma habe, ein skript das einfach nur den fehler ausspuckt:
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
#!/usr/bin/perl use Tk; use strict; my ($var, $datei); my $mw = new MainWindow; $mw -> Label (-text => "nur ein kleines Beispiel") -> pack(); my $optionmenu = $mw -> Optionmenu (-options => [qw/perl perl5 php5/], -variable => \$var, -command => \&subfunktion) -> pack(); my $listbox => $mw -> Listbox (-selectmode => "single", -height => 5) -> pack(); MainLoop; sub subfunktion{ opendir (VAR, "/usr/share/$var") || die "öffnen fehlgeschlagen: $!"; my @inhalt = readdir VAR; closedir VAR; foreach $datei (@inhalt){$listbox -> insert ('end', "$datei");} }
Ich hab keine methode gefunden wie ich $mw also das hauptfenster(Tk) an ein externes modul übergeben kann ohne eine globale variable, strict hat also nicht gemeckert sondern die funktion blockiert da $mw nur im Hauptskript als hauptfenster gezählt hat.