Christoph Schnauß: Inhalt aus Textfeld löschen

Beitrag lesen

hallo Julia,

Wie bekommst du den Inhalt der (Text?)Datei in das Textfeld (meinst du eine textarea?).
#Text-Widget mit 2 Scrollbars (rechts)

Oh. Das hättest du gleich sagen können, daß du PERL/Tk nimmst.

sub open {
    open (FILE, "< $input") || die "Datei konnte nicht geöffnet werden!\n";
    my $i = 0; #Fortlaufende Numerierung initialisieren

Das würde ich anders machen, zum Beispiel:
   @ZEILEN = <FILE>;
   close(FILE);
Danach hast du deine Input-Daten im Array @ZEILEN stehen und kannst die einzelnen Zeilen weiterbearbeiten, ungefähr nach diesem Schema:
   foreach my $zeile (@ZEILEN) {
      if ($zeile ...beginnt mit einer Ziffer oder Zahl...) {
         $zeile =~ s/[0-9]//g;
         print $zeile;
      }
    }
Den Regulären Ausdruck mußt du natürlich so gestalten, wie du ihn brauchst.

Grüße aus Berlin

Christoph S.