Inhalt aus Textfeld löschen

[rolfrost]

hi,

ouh, net machen: eigene Sub mit Namen einer internen funktion!
=> sub xopen{}

Rolf

sub open {
    open (FILE, "< $input") || die "Datei konnte nicht geöffnet werden!\n";

my $i = 0; #Fortlaufende Numerierung initialisieren

while (<FILE>) {
    $i++;
    $text->insert("end", "$i ".$_);
    }
  close(FILE);
}