Datei mit TK-Modul einlesen

[Christoph Schnauß]

hallo thomas,

my $schalter=$links->Button(-text => "einlesen",
              -command => &einlesen
              )->pack();

Ich bin mir nicht sicher, ob der Zeiger zur Subroutine so funktioniert, kann aber sein.

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

Deine Subroutine ist allerdings mehr als unvollständig. $ausgang wird zwar geöffnet, sofern vorhanden, aber dann machst du nichts weiter damit. Wenn das "ausgegeben" werden soll, müßtest du die Datei beispielsweise in einen Array einlesen und den danach zeilenweise mit print wieder ausgeben lassen. Das ist im Prinzip alles, und falls deine diversen Variablen funktionieren (ich bin nicht sicher, ob die alle sein müssen), sollte das Ganze auch klappen.

Perl liefert dir ganz zuverlässige Fehlermeldungen. Was hast du denn im log stehen?

Grüße aus Berlin

Christoph S.