Datei mit TK-Modul einlesen

[wunderwarzenschwein]

Hi,

my $links = $haupt->Frame();
$links->Label(-text => "Ausgangsdatei:")->pack();
my $ausgang=$links->Entry();
$ausgang->pack();

Der Code wird gleich zu Anfang ausgeführt, wenn der User noch gar keine Chance hatte, was einzugeben oder auszuwählen. Verlege den besser nach &einlesen.

sub einlesen {

open (AUSGANG, "$ausgang")
or die "Datei kann nicht geoeffnet werden!\n";
}

Da fehlt jetzt noch der Code, um Text einzulesen. Bis hierhin hast du nur die Datei aufgemacht.

while (<AUSGABE>){
     #Dann sowas wie
     $ausgabe->text.=$_;
     #kenn mich mit Tk nicht so aus, siehe Doku...
}

und natürlich ein

close AUSGABE;

HTH

wunderwarzenschwein