Liste nicht verfügbar

[Thomas Borsdorf]

Hallo zusammen!

Ich hab ein recht kniffliges Problem:

--- schnipp ---
  Einlesen();
  Pruefen();
  Verarbeiten();
  [...]

sub Einlesen {
    [...]
    open (GROESSE, "<groessen.dat");
    @Groessen = <GROESSE>;
    close GROESSE;
  }

sub Pruefen() {
    $Rueck = 0;
    foreach $Eintrag (@Groessen) {
      ($Code, $Bezeichnung, $Betrag, $Ausschluss) = split(//, $Eintrag);
      if ($Code eq $Formular{'Groesse'}) {
        if ($Formular{'Typ'} =~ /$Ausschluss/) {
          $Rueck = 1;
  }  }  }  }

sub Verarbeiten {
    foreach $Eintrag (@Groessen) {
      ($Code, $Bezeichnung, $Betrag, $Ausschluss) = split(//, $Eintrag);
      if ($Code eq $Formular{'Groesse'}) {
        $Groessebezeichnung = $Bezeichnung;
        $Groessebetrag = $Betrag;
  }  }  }

--- schnapp ---

"Verarbeiten" läuft ohne Probleme, "Pruefen" nicht. Der Bereich in "foreach.." wird nicht angesprungen. Ich schließe daraus, daß "@Groessen" an dieser Stelle leer ist. Allerdings kann ich mir das nicht erklären, denn in "Verarbeiten" ist er ja nicht leer.

Wer kann mir helfen?

MfG Thomas.